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Com mi** ion poritoirt : 

Demonde en coun. 




D'abord deroutant, 

puis absolument captivant 

A PROGRAMMATtON vous tente. mois vous poroit d'un 
occes difficile. Ce que vous en sovez ddjd comporle un 
aspect deroutant . sinon tnquietant* En cloir ; vous 
redoutez t echec. 

Je ne vais pas vous drcsoer. Id, un tableau idylliqje de I'appren 
tissage du Basic, el moins encore de celut de lassembleur. Lun el 
1'autre exigent en effet un effort personnel el. surtout, lo volonte 
de bien en assimiler l*abc. 

Aucune revue — et lo pedagogle, mot arrange a touies les sau- 
ces, n'a rien b voir I6*dedans — ne fera de vous. simple d^bu- 
tant(e), un(ej champion(ne) d© lo programmation... si vous n'y 
mcttez pas (un pou) du vfitre* 

Mois. croyez-moi — et je ne nVadresse ici qu'aux d^bulont{e)s — 
leffort se r**v6le toujour* payant. 

Bien des satisfactions sont reserves 6 cedes et 6 ceux qui, inlas- 
sablement, olignenl les precieux octets sur leur ecran, 

Cela vout pour le Basic et pour I'ossembleur. mois plus encore 
pour ce dernier, tout a fait incomprehensible quand on en ignore 
les prindpes, mais super-pu ssant el ropide quand. apres bien 
des tentatives intructueuses, on parvienl 6 le dompter 

Mois pcurquoi programmer, alors que tan' de g&iies produisent 
des logiciels el progiclels outorisant toutes les fantaisies ? Peut- 
etre, tout simplement, pour ne pas moufir idiot I 

Notre intellect, passif devant I'audiovisuel hobituo au* stereoty- 
pes et oux informations prddigerees.ressent inconsciemment le 
besoln de se llbfirer, d'abord en lutiant pour comprendre, enauiie 

en tironl le meilleur profit de ce qull a reussi 6 dominer. 

Bonne progrommation, el rendez-vous le 20 septsmbre dans le 
numero 4 de Tremplin Micro. 

GUY-HACHETTE. 
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Creer des ecrans 

sur 80colonnes ? 

Bien sur que e'est possible ! 

PI OURQUOI ALLONGER d^mesurement certains de vos programmes, alors quil est tetlemenl 
I commode de siocker. x pages d'informations sur lo disquett© ? Cela est possible avec 
l'6cron normal {40 colonnes), el nou> avons vu comment dans le numeru I TfGftiplin 
Micro, mais vods disposer©! dfeormais des memes facility sur 80 colonnes. 

Le programme que nous vous proposons fonctionne sur un Apple We equip© d'un© carle 80 colonnes 
(64 ou 128 kj. 

la version destin^e 6 I'Apple lie comporlo un certain ncrnbre de modifications (r£capitulees page 
11), ainsiquun sous-programme supplemental, en langage machin© (lire page 11). 



| ECRANS.LM 

Commencez par taper la routine ECRANS.LM. 
differ ente sulvant le materiel dont vous dispo- 
soz. Elle troce instonlanement, et sur 60 colon- 
not. un cjrttQ en modo Inverse mats olio no 
fait pas que cela (le* page* 5 et 6 vous la d&cri- 
venl). Memorlsez eerie routine par un 

BSAVE ECRANS.LM. AS30U . LS9D au 
BSAVE ECRANS.LM, A»J0, L$?C pout le He. 



ECRANS. BASIC 

Possez ensuite 6 lo pariie la plus imporrante 
du travail : I© programme en BASIC. 
Dans un premier temps, ajoutez provisolre- 
m©nt une ligne 55 GOTO SO qui vous evitera 
do recharger ECRANS.LM lors de vos essob (ft 
restera en memoir© si vous n'otoignez pos 
votr© micro, et si vous no Tecrosez pas avec 
une outre routine, occupont les memes odres- 
ses). et escamotera egatoment I© chargement 
de ECRC1 et ECRC2 (encore inexistants). 

Tapei mirtuti©usement tout©* lot instructions, 
en les v6riflant au tur ©r d mesure. 
Sauvez voire progromm© 6 plusieurs reprises 
(ESSAL1 1 ESSAI 2 „ou TOrO.l, TOTO.2. etc.). 
Quand vous estimere2 que votr© travail est 
bien ovanco copiez aussi sa dermore version 
sur une autre disquette. Ces precautions vous 
iviterons de ro<krire deux tois le niArne pro- 
gramme... 6 la suite d© qjelque manipulation 
controire aux prlncipes de votre Apple cheri. 
Ne souriei pas : colo orrive i 



I 



Tonez : je connais Quolqu'un qui, opr&* avoir 
tape 200 lignes de programme, s'est apercu 
qu'il n'ovait pas (ou plus) le 0O5 Houreuse- 
ment. il lut restait la ressourco du magneto 
phone (voir Tremplin Micro numero2) I 



PREMIE R ESSAI 1 

SI tout toncfionn© normalemont, un RUN 
devralt vtder PGcron afficher un cadre en 
mode invert©, ©t un cur*©ur ©n haul ©t 6 gau- 
che. Si vous n'obtenex pas cola, v&Hiez que 
ECRANS.LM est encore en memoire et, sur- 
tout. qu'il est rigoureusement exact, puis reli- 
sez chaque ligne du programme ©n BASIC (il 
n v o pas d'outre solution). 

Si tout va bien. tapcz n importe quoi (un mot 
suffira) t puis essayoz la command© CTRL-S 
(BSAVE). Donnez ECRC comme litre. Conn 
nuei par CTfft-F (Fin). Prolit©z d© I'occoston 
pour vorifior qu'un GOTO 2000 vous restitue 

Normalement. vous devei mainlonoit trouver 
ECRCt et ECRC7 tur votr© disquette. Vous 
pouv*2 supprimer lo ligne 55, puis relancer 
roctbn par un nouvuau RUN. 



ECRAN DE COMMANDES 

Cette fois. vous allez passer aux choses serieu- 
ses, Le lecteur ronronne. 6met peur-dtr© de* 
bruits bizarres (horribles !) mots le cadre oppa- 
rait* Partaif. Top©/ CTRL- a (accent cirtonflexe). 



TKEMPUN MICRO 



ECRANS 80 COLONNES 



Vous devez obtonir le mot que vous oviez ren- 
fr* plus haul, avant le BSAVE, Cost votre lulur 
r>c ran de commandes. Enfoncez une rouche : 
vous retrouvM un £tron vierge (cadre 
except^). 

lapez alors voire 6cron de commandes (ch 
dessous), on uHlisant toules les ressources 
olfertes par Im divers CTRL 
Ainsi, le centrage ft'oblient por CTRL-C, mois 
on peut centrer un© ligne en se plo?ant ou 
d£bul et en tapant CTRL P (plus uno case) ou 
DELETE (motns une cose). 

St vous topez un molencontreu* CTRL-O 
feffacement du bas de Tecron. sous te cur- 
seur). sochez qu'un CTRL-W (comme WRITE) 
vous permetlro de retrouver I'ecran prdcG- 
dent.» intact. Pas beou cela ? 



PARTICULARITES 



to borre despocement pormet etlecllvemenl 
d'avancer (de meme que la ll&che — sur 
PApple lie), mais n'elfocepas le coroctere qui 
se irouve sous le curseur. Pour loper un 
"espace-effaceur" (ou "marqueur". dons le cas 
du mode inverse), il convignt de loper CTRL-E 
(comme espace)* 

Et puis* il y a des astuces. Ainsi. pour passer 
une ligne en mode inverse, il suffil de placer 
|« curseur au d6but, de loper CTRL V t puis de 
pot&er sur la ligne en octionnant la barre 
d'espocemont (ou la Heche — sur (Apple 

lie). 

Autre technique : loire un CTRL C (centrago) 
qui Inverse dkeclement touts la ligne. 



APPLE He SOU S ProDO S : Uno seule modification, I'ajool d'une ligne 1295. 
" afln de pouvoir charger un ecran 6 I'adrosse $400 

(Toxto do cette ligne : 1295 POKE 48984.0) 



VOTRE PREMIER ECRAN SERA CEIUI-CI (SOIGNEZ-LE : II REVIENORA SOUVENT !) 



ECRAN DE COMMANDES 



(POURRA ETRE RAPPELE PAR UN 



DEPLACEMENTS : UTILISER LES FLECHES DU CLAVIER, MAIS 

• CTRL-A ramene 6 la premiere ligne de I'ecran 

• CTRL-Z conduit 6 la fin de la derniere ligne de I'ecran 

• CTRL-D positlonne le curseur au debut de la ligne en cours 

• CTRL-l {e'est la fldche TAB. sous ESC) le met en boul de ligne 

NE PAS UTILISER LES FONCTIONS ESCAPE DE LA CARTE 80 COLONNES 



CTRL 



FIN = 
CTRL-F 



ECRITURE ; Tous les caracteres sonl utilisables. mat s I'ESPA CE n efface pas un 
coroctere exislant. Poui iniprimer un espace. taper un 

• CTRL-G eHaco la page, a partir du curse ur. 

• IjljCj permet de centrer une ligne et de |,B,(acor - 

• CTRL-P cree un espace pour ajouter un caractere et la louche Del supprime au 
contraire le caractere qui se trouve sous le curseur. 



I = Roppel de I'ecran memoire 

IBI= LOAD EZ2H= BSAVE 



CTRl-V 



CTRL-T 



= INVERSE 
= SAVE LIGNES 



CTRl-N 



CTRL-X 



= NORMAL 
= IMPRESSION 



GUV-HACHETTt 



ECRANS.LM <pour apple tie) 



300 : 


20 


58 


FC 


J5R 


SFC58 


Homo 




303 : 


6D 


01 


CO 


STA 


SC001 


Mlao 6 1 do 80 STORE (utilisation MEM.AUX) 


306 : 


20 


OC 


03 


JSP 


S030C 


ROUTINE n°l 




309 : 


AC 


2F 


03 


JMP 


S032F 


Entr** n 3 2 




















ROUTINE N°l 
















rt rt 

30C ; 


A2 


00 




LDX 


ft j* rm fm 

£$00 


Boucle Initialise© a zero 








JUfc : 


A V 


70 




IDA 




Accumubleur charge avec $20 (espace) 




310 : 


flD 


55 


CO 


STA 


SC055 


Ecriture on mimolro ouxillolro 




313 : 


20 


FO 


FD 


JSR 


SFDFO 


COUT1 tafflche le coroctdre dont lo codo ASCII est dans A 


316 : 


20 


10 


FC 


JSR 


SFC10 


&S : recule la ■ -our 




319 : 


OD 


54 


CO 


STA 


SC054 


Ecriture en memoire residente 




31C : 


20 


FO 


FD 


JSR 


SFDFO 


COUT1 rjo nouvcau 




31F : 


EB 






INX 




Incremonlotion do lo bouclo 




fl C\ M 

320 : 


EO 


28 




CPX 


£528 


Sommes-nous a 40 ($23) ? 




322 ■ 


DO 


EC 








Un outre tour s'il n*y o pas egolite 




324 ■ 


60 






RTS 




Retour au basic 


























ROUTINE N°2 
















325 : 


A2 


27 




LDX 


£527 


ReglsireX charge avec $27 (39). „ 




327 : 


86 


24 




STX 


$24 


... et vors6 dans CH ($24). position horixontolo du curaour. 


329 : 


BD 


54 


CO 


STA 


SCO 54 


Ecriluro memoire rosidonto 




32C : 


20 


FO 


PD 


JSR 


SFDFO 


COUT1 




















ENTREE N°2 
















32F ■ 


20 


62 


FC 


JSR 


SFC62 


CR * retour chariot 








A 9 


20 




IDA 


£520 


t vi" ice charge dons I'Accumuloieur 




334 : 


BO 


55 


CO 


STA 


SC055 


Ecriture en memoire auxiliaire 




337 : 


20 


FO 


FO 


JSR 


SFDro 


COUT1 




33A ! 


A4 


25 




LDY 


$25 


Position /erilcale du cursuui (CV) charade dons Y 


33C : 


CO 


17 




CPY 


ESI 7 


Est-elle egaleaS17(23) ? 




33E : 


DO 


E5 




ONE $0325 


Sinon, vers routine n A 2 




340 : 


20 


10 


FC 


JSR 


SFC10 


BS ; recule le curseur 




343 : 


FO 


C7 




8EQ 


SO30C 


Vers routine numero 1 (trace du bas de 1 ecran) 


345 : 


AD 59 


03 


IDA 


$(1359 i 


Recopie do la valour 


ROUTINE N°3 


348 : 


8D 


63 


A A 

03 


STA 


SO 363 


poquoo dopuU lo Basic 


(lecture d une 


34B : 


AD SA 


A A 

03 


IDA 


S035A 




ligno ecron) 


34E ; 


8D 


64 


i"» A 

03 


STA 


$0364 . 






351 : 


A2 00 




LDX 


£$00 n 


Initialisation 




Otrt 

JDJ : 


AO 


00 




LDY 


£$00 J 






ICC 

355 : 


80 


55 


CO 


STA 


SC055 


Page 2 commute 




it n 

35B : 


BD 


00 


00 


LDA 


soooo.x 


Lecture (odrosso poquoo dopuis le Basic) 




358 i 


99 


00 


48 


STA 


S48fl0,Y 


Ecriture pour constituer la variable X$ 




35E : 


C8 






1NY 




Plus 1 pour memoire 




35F i 


BD 


54 


CO 


STA 


SC054 


Page 1 commute 




362 : 


BD 


00 


00 


LDA 


SOQOO.X 


Lecture 




365 : 


99 


00 


48 


STA 


$4800. Y 


Ecriture (suite variable X5) 




368 : 


C8 






INY 




Plus ] pour memoire 




369 ; 


E8 






INX 




Plus 1 pour lo boucle 




36A : 
36C : 


EO 
DO 


28 
E7 




CPX 
BNE 


£$28 
SO 3 55 


A t on Iu2 fois 40 caracteres ? 






Un autre four si ce n'esl pas terming 


SUtT£ PAGE 6 



iiimMiimiiu 

TREMPLIN MICRO 



ECRANS.LM (pour apple lie) 



(suite) 



36c : 


A5 


6V 




LUA 


* lq 

5oV 


LOMtM pour i ooroiso ae a> 




37H : 


1 B 






LLL 




AnnuiaTion 00 Ja roienoe 




371 : 




ft** 

02 




a r\/~ 
AUv_ 


tj»U*f 


Plus ^ pour oDIonir 1 oaresae 




373 : 


art 


83 


3 


C T A 

b 1 A 




PropOfOTJon a© 10 douci© jparn© uosst?; 




376 : 


Ab 


6A 




LUA 


r /. a 
ioA 


t AllCll I t AJirtln k f ,n* ■ 

IOMcM t 1 porne naulo 




37B : 




00 




AUL 


f can 
tout 1 


Plus letonu© ev*?niut?MO 




37A : 


i* n 

80 


A i 


f> *t 

03 


STA 




Preparation do la boucio (panto naut#j 




37D : 


A 2 


00 




LDX 




Mise a *ero 




J/r . 




an 


J 




cn T ft R ¥ 


1 art i iro 




382 : 


9D 


00 


00 


STA 


soooo.x 


Ecriture 




385 : 


E8 






INX 




Plus un 




386 : 


EO 


03 




CPX 


£S03 


Reiour au Basic al on a lu 3 adro»i©» 




388 : 


DO 


F5 




BNE 


S037F 


Encoro un tour ? 




IRA - 


OU 






RTS 




BASIC 

on nil w 








00 




8VC 


S038D 

•it w «J U 


Lanqueur do la variable (S50 = 8Q) et 




38D : 
****** 


48 






RTS 




fidrouo (parlies basso of haul*) 




38E : 


38 






SEC 




Bolonue A i6ro ou 1 (poquio dopuis le Bask) 


ROUTINE N°4 


38F : 


20 


11 


C3 


JRS 


SC311 


AUXAAOVE 


(AUXMOVE) 


392 : 


60 






RIS 




Reiour ou Basic 




393 : 


68 






PLA 




POUR TERMINER : 


ROUTINE N°5 


394 : 


AH 






TAY 




BSAVE ECRANS.LM. 


(Iraitement 


395 : 


68 






PLA 




AS300 LS9D 


des erreurs) 


396 : 


A6 


DF 




LDX 


SDF 






398 ; 


9A 






TXS 








399 : 


48 






PHA 








39A ; 


98 






TYA 




VERIFICATION Tapei lo ligne suivanto. on mode direct f 


39B : 


48 






PHA 




T = : FOR 1 = 768 TO 924 : T = T + PEEK (1) 


: NEXT : PRINT T 


39C : 


60 






RIS 




Le resulla! dorr etro 18234. 





• 300 : 20 58 FC A9 20 20 0B 03 20 16 03 A2 00 20 F0 FD E8 E0 
50 DO FH 60 20 F0 FD A? 4F 86 24 20 FQ FD A4 25 CO 16 DO F0 
60 AD 3B 03 8D 45 03 AD 3C 03 8D 46 03 A2 00 AO 00 8D 55 
CO BD 00 00 20 6D 03 C8 8D 54 CO BD 00 00 20 6D 03 C8 E8 E0 
28 DO E7 RETURN, PUIS DE NOUVEAU : 

* 350 : A5 69 1 8 69 02 8D 65 03 A5 6A 69 00 8D 66 03 A2 00 
BD 8A 03 9D 00 00 E8 E0 03 D0 F5 60 C9 E0 30 06 09 80 C9 E0 
10 0B 09 CO C9 E0 30 09 49 40 4C 86 03 C9 FF FG F7 99 00 48 60 
50 00 48 1820 11 C3 60 68 A8 68 A6 DF9A48 98 48 6G 

... ET UN DERNIER RETURN ! 

■ VERIFICATION Taper, en mode direct, la llgne suivante : 
T = : FOR I = 768 TO 923 : T = T + PEEK (I) : NEXT : PRINT T 
Le resulted devra elre 17044. 



ECRANS.Lm2c 

POUR APPLE lie 

La routine pour 
Applo lie est 
diff&rente. 
Lo void, 
condense : 

SAUVEGARDE AVEC 

BSAVE ECRANS.LM. 
AS30O. IS9C 

GUY-HACHETTt 



A ptopos do la variable 
X$, reliter la peg* 44 ™ 
du numero 2 de Trempltn 
Micro. 



CeMe Itgne inslallo uno » 
fonolro 6 I'interieur du 
codre. 



5k Ion tap* CIU 
e'e*l-6-dtro CHR$(0). IS 
est egol . a Men* 



S* RS **t une tottre. on ^ 
point Jmmodtotemenf 
a I'aMtcHage co qui per 
met de gagner du temps, 
en ev it ant la longue terie 



La ligne Md a ei* ojoutee 
pour la memo ration* Si H 
Mt plus grand que 14, ll 
ett I'^TiT.'/ir' do sauler 

por-de»»u* Je» llgrwr* 
Inufilet 



ECRANS.BAS 

Version Apple lie 



Pour un Apple lie, mome ptogtamme. mats 
avec les corrections indiquees page 1 1, 



10 
26 
30 
46 
50 
68 
70 



I 



90 
109 

no 

128 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 

258 
268 
278 
288 
290 
308 
310 
328 

330 



340 
350 
360 
370 
380 
390 



LOMEM: 

Xt = ' ": REM VARIABLE A NE PAS DE PLACER 

FOR 1 ■ 1 TO 20:TR* = TR* * " NEXT 

TEXT : PRINT CHR* <4>"PR£3* ; HOME : PRINT 

DIM L*<24>:LL = B37tER = 9]5lM0 = 910 

PRINT CHR* <4>'BL0A0 ECRANS.LM" : PRINT 

PRINT CHR* (4>"BL0ADECRC1 ,A*2888" : PRINT CHR* (4 

)"BL0ADECRC2,A*2488": PRINT 

CALL 76Bt G0SUB 98 i GOTO 150 

POKE 34,2: POKE 35,23: POKE 32,2: POKE 33,76i 
PN 

REM ••♦•••••••«•••«»•••*««••**•••• 

REM M SA1SIE 0E VOTRE ECRAN 
REM ---•*»•***«*»*••****«*•••••#• 



RETU 



PRINT IV - 3lH 



IF V 
IF V 
IF H 
IF H 
UTAB 
IF 
R = 
IF 

IF 
CE 
IF 
IF 



< 3 THEN U - 3i CALL - 198 

) 22 THEN V = 22i CALL - 198 

( THEN H - 72iV - V - ll GOTO 

> 72 THEN H = »iU ■ U * li GOTO 



V: POKE 1483, H: PRINT " 
R* = ' " THEN G0SUB 1388: 
ASC tWi 

R = 127 THEN 550 
R ■= 5 THEN R* - 
MATERIALISE 

OR R - 21 
THEN 288 
PRINT R*:H a h ♦ li 



'[1 GET 
TEXT i 



168 
178 
R« 

GOTO 



32 
32 



REM DEL, SUPPRESSION 
■: GOTO 270: REM CTRL-E, 

THEN H - H ♦ It GOTO 190 



ESPA 



14 THEN 400 



GOTO 168 

lY = 3: GOTO 200 
REM CTRL -C, CENT RAGE 
i GOTO 200 



H = 
710: 
H - 

G0SUB 1508: GOTO 1738: REM CTRL-F, 



IF R > 

IF R = 1 THEN 
IF R a 3 THEN 
IF R • 4 THEN 
IF R = 6 THEN 
FIN 

IF R = 7 THEN GOSUB 
0T0 280: REM CTRL-G, 
CURSEUR 

IF R = 8 THEN H ■ H - 1 i GOTO ! 
IF R * 9 THEN H = 72: GOTO 280 
IF R • 10 THEN V - V ♦ 1 : GOTO 
IF R = 11 THEN V » V - ll GOTO 
IF R = 12 THEN GOTO 1 279 1 REM 
IF R = 14 THEN NORMAL lET ■ 0: 



1500: NORMAL 
EFFACEMENT A 



: CALL 
PART I R 



- 958: G 
ET SOUS LE 



-I .NORMAL 
IF R « 15 



DRMAL : CALL - 868: 
LA LIGNE EN COURS 



THEN H = 0: VTAB U:H 
GOTO 200: 



179 
160 

CTRL-L ,LOAD ECRAN 
GOTO 200 : REM CTRL 

* 0: POKE 1403, Hi N 
REM CTRL-0, EFFACER 
(SUITE PAGE 8) 



7 



TREMPUN MICRO 



418 
420 
•130 



459 



440 

479 
488 

498 
588 
518 
528 
538 
548 
558 
568 
578 
580 
598 
688 
618 
628 
638 
648 

650 
668 
678 
668 
698 
788 
718 
72B 
738 

748 
758 

768 

778 



IF R = 16 THEN 638 1 REM CTRL-P, LETT RE EN PLUS 

IF R = 19 THEN 1898: REM CTRL-S.BSAVE ECR1.ECR2 

IF R = 28 THEN 1188: REM CTRL-7,SAVE FICHIER TEXT 

IF R » 22 THEN INVERSE lET = 1 ! GOTO 289 1 REM CTR 
L-V.1NUERSE 

IF R = 23 THEN GOSUB 1588: GOTO 158! REM CTRLHJ, 

RAPPEL DE L'ECRAN EN MEMOIRE AUXILIAIRE <OE DERNIER 

) 

IF R = 24 THEN 1388i REM CTRL -X, EDITION SUR IMPRIM 
ANTE 

IF R - 26 THEN H ■ 72:V - 22i GOTO 288 

IF R = 38 THEN GOSUB 1588; GOSUB 1668: GOTO 288: 

REM CTRL-FLEX, EC RAN DE CDMMANDES 
GOTO 168 



REM ■•■••■•*■■•■■«■■#■■•«••»•»*•»* 
REM M SUPPRESSION DE CARACTERE «• 
REM »*•«••»■*»»#*»«**#**•»*■ 

t 

GOSUB 848 

VTAB V: POKE 1483, H; PRINT MID* <L»,H * 2> » ■ 
GOTO 288 

REM IWlMmMI»llll»IHIlWin| 
REM <■ CARACTERE SUPPLEMENTAIRE «• 
REM #•»•«»••##•#••••••»«•••••«•#«• 



GUSUB 848 

VTAB Vi POKE 1483, H: PRINT ■ 
2 - H> 
GOTO 288 



* MID* (L*,H * 1 ,7 



I 



REM 
REM 
REM 



CENT RAGE DUNE Ll&NE •• 
••••••• •••••«•••■• 



798 : 
888 
810 
828 
838 : 



GOSUB 848 iL = LEN (L*> 
ONERR GOTO 1888 

IF ASC < MID* <L*,L,1>) = 168 THEN L = L - 1 : GOT 
738 
L* =» LEFT* <L*,L) 
FOR I = 1 TO Li IF ASC < MID* <L*,I,1>> = 168 THE 
N NEXT 

NORMAL : VTAB Vi POKE 1483,8: CALL - 868: IF ET ■ 
1 THEN INVERSE 
L ■ L * J - lllM ■ INT <74 - L) / 2i POKE 1483, H: 
PRINT RIGHT* <L*,L) 
POKE 216,8l GOTO 288 



REM 
REM •• 
REM 



LECTURE DUNE lIGNE « 



ECRANS.BAS 

(SUITE) 



+ Les command** do 
I'lmprimanio (voir plus 
loin) concerned IMAGE 
WRITER ou DWP Apple 
^ CTRL-fAccent eircon 
™Mexe) permet de re voir 
t ocan de wmmonto 
(attention I ii faut d'abord 
I'ovofr '^po el memo- 
rise IK 



^ St Ton e&t en modn 
^ INVERSE, lea effets som 
tre».^ tperiaux * touto lo 
ligne pa&so en mode 
inverse, espoces compels, 
6 porttr du coroctere 6 
tupprlmer. Pour que foul 
rentre dons I'ordre, poster 
. on modo NORMAL 
▼ (CTRL-N). piocer le cur* 
•our immtVdiatomont h lo 
suite du dernier carocforo 
Utile. el rotapcr DEL 
I Delete). On assiste ou 
mime phenomene ovec le 
caract6ro supplemenfaire 
(ftgne 630). 

On pourrait fairo pr*c6der 
le* deu« GOSUB [3W or 
630) por "NORMAL :"\ 
matt lot Itgne* on mode 
INVERSE paneraient olors 
en modo NORMAL. 



4, NOT A | CTRL-G (cen* 
trogo) fait potser une 
ligna normolo en mode 
INVERSE ti Ton a prii lo 
precaution de toper au 
prootable un CTRl-V 

(INVERSE)-, el rassurei- 
vovt. iur voire ecran 4 tout 
celo devtendro beoucoup 
plus clolr I 



GUV-HACHETTE 



le programme vorltfs ^ 
I'e'lttence d'un Itchier ~ 
el voui p'Oviotit il lo Hire 
•■'He d*ib. 

Un conwtl IOCKEZ" 
voiio ecron do comman- 
dot doi qu'il '-ura inttallo. 
Mleux vau) un BREAK... 
qu on fficheun ecrosement 
da telle bolle page I 



Voui memorise* deux « 
eerom (chotun doux " 
occupe 5 secieurt »ur la 
disqootto). 



Calls parlle du pro* ^ 
gromma na proton to 
pos one reell* ulllilo. Elle 
memorise, soui forme de 
ffchier I. 73 lig.no* d'kran. 



RESTORE 
POKE LL 
1, INT 
G60 L* = MI 

: 

REM 
REM »• 
REM 



846 
950 



878 
888 

an 



l FOR I = 1 TO V: READ 
* 28, L - INT <L / 256 
(L / 256) ! CALL LL:T* » 
M <X*,5,73>: RETURN 



L: NEXT 
) • 256: POKE LL + 2 
MID* (X*,l) 



TITRE O'UN FICHIER »• 



918 
928 



NORMAL 
T TR* 
VTAB 28 
OBTENI 

IF F» = 
GET R» 
IF ASC 
ONERR 
978 G* = F* 
988 PRINT l 
LT = 8: 
VTAB 28 
i CALL 



TEXT i VTAB 17: CALL - 958: PRINT 



PRIN 



938 



948 

958 
968 



990 



: POKE 1403,0: PRINT "T 
R LE MENU) ';: CALL - 
THEN RETURN 
■?■ THEN HOME : PRINT 
t POKE - 16366,8: HOME 
(F*> < 65 OR ASC <F«) 
GOTO 1818 
* 

PRINT CHR* <4)"VERIFY 

goto lees 

: CALL - 95B; INVERSE 
- 19B: PRINT " EXISTE 



1TRE PROPOSE <? POUR 
198: INPUT " jF»: IF 

CHR* <4>"CATAL0G': 
: GOTO 928 
> 98 THEN 938 



'G»: IF LT ■ 1 THEN 

: PRINT F*j: NORMAL 
— U TITRE MAINTENU 



1818 

1828 
1838 



1 

1858 
1068 
1878 
1888 
1898 
1 188 
1118 
1128 



1138 
1148 
1158 
1168 
1170 
11B8 
1198 

1288 



<2> AUTRE TITRE ■;: GET Rt : POKE - 1636B.B: IF R* 
< > "1 " THEN 928 
POKE 216,8: RETURN 

CALL ER: POKE 216,0: IF PEEK (222) < > 6 THEN 17 
98 

IF LT ■ 8 THEN RETURN 

VTAB 28: CALL - 9SB: INVERSE : PRINT F*;: NORMAL 
1 CALL - 198: PRINT 1 N'EXISTE PAS - APPUYE? SUR U 
NE TOUCHE 5VP ";s GET R*: POKE - 16368,8: GOTO 926 



REM 
REM 
REM 



SAlf.'Eti»"tPDE DE L'ECH-VJ 



1S30 



GOSUB 1580ILT - 0: BOSUB 920 i GOSUB 
GOSUB 1588: IF Fl = "■ THEN 138 
Fl» - F* + M":F2* - F* • *2" 
PRINT : VTAB 2: PRINT CHR* <4>"8SAVE"F1»' ,A*488 ,L 
1816": POKE - 16299,8: PRINT CHR* C4>"BSAVE"F2»" , 
A*48e,L1816-: POKE - 16386,0: GOTO 288 



REM 
REM 
REM 



•*••*•*•••■ #•••••••*•••••■•••• 

SAUVEGARDE EN FICHIER T 



N = V:V = 8:F* = "ECR.T" 
IF V < 23 THEN V ■ V + 1: GOSUB 848:L*<V) * T*: GD 
TO 1198 

V = N; VTAB 2: PRINT i PRINT CHR$ <4)'0PEN"F«: PRI 

(sum PACE 10) 



TREMPLIN MICRO 



= 1 TO 23: P 
CHM (4>"CL0 



1218 
1220 
1238 
1240 
1258 
1268 
1278 
1288 
1298 
1388 



1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 

uee 

1418 



1428 

1438 
1448 
1458 
1468 
1478 
1488 
1490 
1588 

1518 



1528 
1530 
1540 
1558 
1568 
1578 
1580 

1598 



NT CHRS <4)"URITE"F*: PRINT 23: FOR I 
R1NT CHM (34) » L»0)l NEXT : PRINT 
SE'F* 
GOTO 288 

I 

REM •••••«•**•••••«•«••••••••••••• 

REM CHARGER I* EC RAN 

REM »■•••• ■•«•■•»••••••«•««••#«♦ 



GOSUB I588:LT <» 1: GOSUB 920 
IF F* = THEN GOSUB 1588) GOTO 1328 
Fl» = F« ♦ M- :F2* = F» ♦ '2" 
POKE - 16388,8; VTAB 2: PRINT CHM (4) "BLQAD"F1» 
\A*488": POKE - 16299,8a PRINT CHR* <4>"BL0AD-F2 
•",A»48B": POKE - 16388,0 
GOSUB 98: GOTO 15B 



COPIE OE L'ECRAN 



REM ••' 
REM 

REM •*«#••••••••••••»••••#•••••••• 

: 

M " vi'.' " 0: NORMAL 
IF V < 23 THEN V - V ♦ li GOSUB 848:L*<V) ■ T*i GO 
TO 1390 
GOSUB 1588 

PRINT CHM ( 21 ) i HOME I 
INT CHM <27)'E"i PRINT 
HR* (27)"! "I PRINT CHM 
FOR I - 1 TO 23: PRINT L*(I>: NEXT 
CHM U2)l PRINT CHM <4)"PR£8" 
PRINT CHM (4)"PRf3": HOME : HRINi 
V = N: GOTO 208 



PRINT CHM <4> 

CHM <27)-LB18": 
<9>'81N" 

PRINT 



PR£I"t 
: PRINT 



PR 



r-MSUB 1588 



REM HHIIIIMIIII 

REM TRANSFERT ECRAN MEM AUX 
REM ....#«...«t.. .4.., 



POKE M0.56: POKE 60,0: POKE 61,4: POKE 62,248: POK 

E 63,7: POKE 66,8: POKE 67,64: CALL MO 

POKE - 16299,8: POKE 68,8: POKE 61,4: POKE 62,248 

: POKE 63,7: POKE 66,0: POKE 67,68: CALL MO: POKE 

- 16388,8 

RETURN 



: 



REM -■■•»••*•»••-••••'■•••.■••••• 

REN H RECUPERATION DE L'ECRAN •• 
REM «■»•»«**»■■#«*»»»»**»»•»«"*•» 

1 

POKE MO, 24: POKE 68,8: POKE 61,64: POKE 62,248: PO 
KE 63,67: POKE 66,8: POKE 67,4: CALL MO 
POKE - 16299,8: POKE 60, B: POKE 61, 6B: POKE 62,24 
Bl POKE 63,71: POKE 66,8: POKE 67, 4i CALL MO: POKE 
- 16388,0 



ECRANS.BAS 



(sunt) 



prevoyez 
oinsi fWi- 



Av&c ProDOS 

unt ligna 1295, 
j gee {quel «tyle> I) : 
~ 1295 POKI mi4,0 

Cela evIVero 6 voire Apple 

do vous fairo une ie6no. 

corttltfonl foul bonnomcmt 

6 reluao* dfi charger voire 

ocron I 



- DMP Apple ou IMAGE 
"WRITER** Avec d'outm 
morque». lenlf 6 

PRINT CHRS(V) "ilN" ou 
MN" velon lot CO*. 



Attention I avoc un Apple 
Wc. pluftieur* llgnet »ont 6 
modi Her at d'outrei 6 

ijoulnr LisOT detail ci 

conlre* 



GUY-HACHCTTC 



Lea routine* en Qiicm 
bl*ur r^prenneiM det p*o* 
gramme* utilise (el par 
fois evpliques) dan* lo* 
deux premiers numerot 
do TrompHn Micro, 



Si vout vou» plonret, ou si 
vout lotto* un Jnlempettif 
CTHL-F (FIN), lapex un 
GOTO 30OQ*.. el ■'■!!. 
rolrouvoror a lo lotf voire 
ecron ... el le OOS (*oul 
orreor I). 



1609 GOTO 9i 
1619 : 

1628 REM «■ 
1438 REM 
1646 REM 
165B : 
1668 
1678 



1688 
1690 



170B 

1710 
1726 



1738 
1748 
1756 
1760 
1778 
1788 
1798 
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• • AFF1CHAGE ECRflN COMMODES • 

MMIIfltlMMIMtllHIOOIII 



POKE MO, 56: REM RETENUE A 1 

POKE 66, Bl POKE 61,32: POKE 62,24Bi POKE 63,35i P0 
KE 66,8: POKE 67,4: CALL MO 
POKE MO, 56: REM RETENUE A 1 

POKE - 16299,8: POKE 66,8: POKE 61,36: POKE 62,24 
8: POKE 63,39: POKE 66,0: POKE 67,4: CALL MO: POKE 
- 16300,0 

CALL - 198: POKE - 16368,8: UA1T - 16384,128,12 
7: POKE - 16368,8: GOTO 1580 

! 

DATA 1 B24, 1 152, 1288 , 1 488, 1536, 1664, 1 792, 1 928 , 1 864 , 
1 192, 1328 , 1448, 1576, 1 784, 1632, I960 , 1 184 , 1 232 , 1 368 , 1 
488,1616,1744,1872,2068 
TEXT : HOME : END 



REM 
RE" 
REM 



AUTRcS cflBEURS 



PRINT : UTAB 28 t CALL - 950: PRINT 
• PEEK (2221" LlGNE ■ PEEK (21B> ♦ 
56" — PRESSEZ UNE TOUCHE ' : : CALL 
POKE - 16368,0: RETURN 
CALL 915: POKE 216,0: GOTO 280 
POKE 51,0: GOSUB 1580: GOTO 260 



ERREUR NUMERD 
PEEK (2191 • 2 
• 1?8: GET Mi 



ROUTINE ECR.MEM2C 



Renlrei ef Mover ce pelit programme en uti- 
liiant la technique HabltueHe ; CALL051, etc 
puis KAVE ECR.MEM2C ASIE40. LS70 

• 1E40.1EAF 



IE40: 


A2 


00 


BD 


78 


04 


9D 


00 


IE 


1E48 : 


BD 


F8 


04 


9D 


08 


IE 


BD 


78 


1E50 : 


05 


9D 


10 


IE 


BD 


F8 


05 


9D 


1E5B- 


IS 


IE 


BD 


78 


06 


9D 


20 


IE 


1E60: 


BD 


F8 


06 


9D 


28 


IE 


BD 


78 


1E6B : 


07 


9D 


30 


IE 


8D 


FB 


07 


9D 


1E70: 


38 


IE 


E8 


E0 


OB 


DO 


CB 


60 


1E7B : 


A2 


00 


BD 


00 


IE 


9D 


78 


04 


1E80 : 


BD 


08 


IE 


9D 


F8 


04 


BD 


10 


1E88 : 


IE 


9D 78 


05 


BD 


18 


IE 


9D 


1E90: 


F8 


05 


BD 


20 


IE 


9D 


78 


06 


1E98 : 


BD 


26 


IE 


9D 


F8 


06 


BD 


30 


1EAO: 


IE 


9D 


78 


07 


BD 


3B 


IE 


9D 


IEA8: 


FB 


07 


E8 


EO 


08 


DO 


CB 


60 



APPLE IIC (MODIFICATIONS 01 ECRANS.BAS) 



MO = 909 
PRINT CHftSM) mOAD 



50 OIMLS(24):U « 807 Efi * 914 
55 Ml - 77U M2 = 7B00 
ECR.MEMX" 

90 POKE 34.3 : POKE 35,22 : POKE 37,3 POKE 33,76 RETURN 
180 IF H THEN H = 73 : V = V — \ :GOTO 160 
190 tFH 73 THEN H = ; V = V + I : GOTO 1 70 

SUPPRIMER LES LtGNES ?40 - 250 
350 IFR = 9 THEN H s 73:GOTO200 
435 IFR = 21 THENH «H+ 1 :GOlO190 
660 IS - MIDS ! vS 4 73; RETURN 

1295 CALL Ml + POKE49984fl"»ov*ProOOS 

1305 CALLM2 

UQQ IM - I GOSUfl 1560 

1515 IF IM = 1 THEN IM ■ 

1665 CALL Ml 

1695 CALL M2 

Dons le tobleou de commend**. CTRL-E d&vient Inutile. Sur I Apple Ik 
letpoce \omq son r6lt normal of lo Heche dfdte provoque un dflptace- 
ment vea lo droit* Attention ! Souvooafdei ■ ■ J t otran tur dltquotte 
ovont oW 1 Imprlmor h cor i\ wo eniuite effect I 



LOGICIEL 



APPLE II. 



If. 



Si votre anglais laisse encore a desirer... 

Partez en voyage 
avec MAX ! 



Ou en est votre anglais ? Sauriez-vous vous faire com- 
prendre si vous 6tiez parachute 6 Londres ? Si la reponse 
est oui ( MAX The Globe Trotter ne vous int^resse pas, 
encore que, possesseur d'un Apple. il ne saurait vous 
laisser totalement indifferent... pour la simple. mate 

excellent raison qu'it utilise votre ordinateur personnel, dont il tire d'oflleurs le meilleur porli. 




Pour utiliser MAX — 4 disquettes. 2 casset- 
tes, et un AAlcrollnguo Book de 180 pages — il 
sulfif de disposer d'un Apple lie ou lie 
equips d'une carte 60 colonnes. oinsi que 
d*un lectcur do cassettes. 

St vous ddsirez une bonne quality sonore 4 jo 
vous consellle le lecteur de votre radio, pre- 
ferable, et de loin, 6 votre magn£tocassette 
portoble. 

Si vous n'avez vraiment aucune connaissance 
en anglais, MAX ne deviendro pus votre ami 
sans de sdrieux efforts de votro part. 

Par centre, si votre vocobulolre (onglois) de 
base atteint d£(6 une centaine de mots . 
demand*?/ b MAX. salt de vous rafra?chir la 
m^moire. soit de vous en opprendre davan- 
toge. ce qui revient au meme r 

Que I on ne s'y trompe pos : il s'agit d'une ini- 
tiation serieuse 6 I'onglois (et 6 Tomirlcoin) 
de tous les jours, et non d'une approche plus 
ou mains r Aussie de Tdfude de cette langue, 

Avec MAX, vous apprendrez rdellemeni 6 
vous d^brouiller. par le son, le texte et 
Tlmoge (celle-ci ne constitue d'oilleurs pas 
Tinteret numero 1 dece logic(el). 

Avec la Computercassotto (c'osl aussi la pre- 
miere) . vous accompagnerez MAX en 
bateau, dons le train, en avion. 6 Thotel et ou 
restaurant, Dans le meme temps, votre 
Apple cheri vous invitero a repondre 6 des 

■ ■■ ■ ■■ ■■ ■■ ■■■wm w m i 

GUY HACHETTE 



questions plus ou moins drfficiles, tout cela 
avec un accompagnomenr musical et un cer* 
lain nombre de bruhoges. 

Par le truchemenl du mode inverse, vofro 
attention sera attiree sur les mots pouvont 
poser un probl&me de comprenette. lis vous 
teront blen tOr expllquds... dons un anglais 
moins obscur. 

Sketches, exercices, (eux ; le cours n est pas 
seulement didaclique. rnais se veul ludique, 
Un bon point pour lui, A noler que vous n*£les 
jamais oblige do subir lo programme, la tou- 
che ESCAPE vous permertant de revenir ou 
menu si tel est votre bon plaisir... et oussi do 
recommencer a tel ou tel niveau du cours. 

Le manuel de reference parait complef, mais 
je n'ai pas oime ses couleurs (beaucoup trop 
vives). sans douto destinies 6 interdlre lo 
phototopio. Cest un pou dommoge car il est 
bien con^u. Ceci dit, le Microlinguo Book 
reste un bon ouvrage d'occompognement, ou 
chaque exercice est clairemenf expliquti en 
fran^ais. Il est indispensable aux vrais 
debutants. 

Nestor. 



Vous pouvoz recevoir une disqueMe O^mo, 
fort bien pr6senf£e d'aillourv en utilisant Je 
bulletin de commando de fa page 62. 
(MAX The Globe Trotter est vendu 1200 F 
T.T.C, prlx jM-t.iro), 



12 



leu du numero 2 



Cryptotexte 



|P RYPTOTEXTE permet 
\h de decrypfer ou coder 
un programme preolo- 
blomenl tronsforme on 
fichier EXEC (voir la fiche 
n D l do Tremplin Micro). 
Nous vous dannons, page 
suivanle. le ftslage de la 
pelile routine en ossem- 
bleur qui correspond d la 
ligne 450 (DATA) du pro- 
gramme en BASIC. 



ii text j home TEXTE ORIGINAL 

20 PRINT •YOuUZ-VDUS DEVINER UN NDMBRE CHOISI PAR L'OROIWTEW V 

30 VTAB 4; HTA8 li INPUT "GUI OU WW ? ')R» 

40 IF Rt = "NON" OR Rt « 'N' THEN 160 

50 IP Rt { > "OUr AND Rt ( > "0* THEN 38 

40 N = I * INT < RND (1) * 110) 

71 PRINT : PRINT -fit NOMBRE E5T CCMPRIS ENTRE ',: INVERSE : PRINT 1 
NORMAL I PRINT 1 ET '[i INVERSE i PRINT 100: NORMAL 

88 VTAB 10: HTAB li CALL - B4G: INPUT "VOTRE NCMBRE -) 'M 

n X = UAL (WO: IF X * THEN 88 
100 IF X • N THEN Rt ■ ' VOUS AVEZ BAGNE !»| BOTO 120 
119 Rt = "PERDU! TROP PETIT!'. IF X > N THEN Rt * 'PERDU' TROP GRAND! 

129 C - C * 1 

138 VTAB 13: KTAB I : CALL - 868: PRINT Rt|- - E5SAI NUMERO •;: 1NVE 
RSE : PRINT Cl NORMAL 

MB IF X ( > N THEN B0 

150 PRINT : PRINT : PRINT 'PRESSEZ UNE TOUCHE SUP 'j: SET Rt: 6QT0 10 
16B PRINT : PRINT i PRINT "DOMMABE, N0U5 NOUS SERIONS BIEN AMUSES" 



10 TEXT i PRINT CHR» (21): HOKE 

20 Dt - Ottt (4> 

38 DIM Li(150) 

48 GOTO 44) 

50 : 
68 



70 



REM 
REM 
REM 



111! 



LECTURE ET RE. ..CREATION • 
........................... 



Ill 

120 

138 

148 

150 

168 

171 

180 

190 

200 

211 

228 

238 

240 

258 

268 

270 



L ■ 0:N = 0:L> • '• 
CKERR GOTO 240 

PRINT i VTAB IS: PRINT Ot'DPEN'Flt 
PRINT DS'REAO'FII 
BET CAt 
CALL 76B 

CA = PEEK (6): IF CA = 13 THEN 180 



* CHR* (CA>i GOTO 141 
i:L»(L> = LtiLt - "i 60TO 140 



ECRITURE 00 FICHIER F2t 



Lt = Lt 

I'll 

REM 
REM 

REM him h ..mi 

: 

IF PEEK (222) = 5 THEN PRINT : PRINT 
fCLOSE'Flt: POKE 216,0; GOTO 261 
VTAB 22: CALL - 868: PRINT 'PROBLEME NO 
N PREVU AU PROGRAMME': STOP 
PRINT DVPRI3-: PRINT I HOME : FOR I ■ 1 
TO Li PRINT Lt(I): NEXT 
PRINT Dt'0PEN"F2»: PRINT Dt'l*ITE'F2t! F 
OR I = 1 TO L: PRINT Ltd): NEXT i PRINT 



2BI 
290 
388 

318 
321 

338 

348 
358 
368 



Dt'CL0SE"F2t: HOME j RUN 



REM 
REM 
REM 



tlMIIIHIIIIIIiliu 

• KWYPTER OU WITTER » 



378 
360 
390 



418 



420 



456 



IWER5E : PRINT ■ CBYPTER OU DECRTPTER 
UN FICHIER (T) ': NORMAL 

FOR I = 1 TO 10:T« * Tt » ' *i NEXT 

VTAB 20: PRINT Tt 

VTAfl 22: KTAB 2: PRINT '(1) CRYPTER (2 
) DECRYPTER <3> FIN "H GET Rti PRINT 
R»:R= ASC (Rt) -48: IF R - I OR R = 2 
THEN 390 

IF R ( ) 3 THEN 360 
TEXT i HOC : END 

IF R • 1 TUB* Fit - 'JEU":F2t - "JEU.'lV 
* ■ "AEIOUOAUE!": GOTO 410 
F2t * "JEU":FIt = -JEU.':V» = 'OAUEIAEIOU 

■ 

FOR I ■ 797 TO 886: POKE I , ASC ( MIDt ( 

W.I " 794,1) W NEXT 

VTAB 6: PRINT "ON PART DE ';: INVERSE I 

PRINT Flip NORMAL : PRINT " POUR CREER * 

11 IWVERSE : PRINT F2t: NORMAL 

GOTO 110 

FOR I » 768 TO 796: READ R: POKE I,R: NE 

XT : RESTORE : GOTO 330 

DATA 173,1,2,201,13,208,2,240,10,142,0, 

221,29,3,288,4,169,34,3,133,4,96,232,224, 

5,208,240,240,244 ^ 
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TREMPtIN MICRO 



Cryptotexte 



Les donntes de la section 
encadree correspondent 
(en hexodAclmol) aux 
voleurs declmales de la 
ligne J 50 (DATA) du pro- 
gramme en Basic. 



0300 


AD 


00 


02 






an 




GIGS - 


nn 






0307: 


F0 


OA 




0309 * 


A2 


□0 




0108 - 


DD 


1 D 


03 


010 F * 
v jy l ■ 


nn 


wo 




0310 : 


BD 


22 


03 


0313: 


85 


06 




0315: 


60 






0316: 


E9 






0317: 


£0 


05 




0319: 


00 


F0 




031 B: 


F0 


F6 




031 Dr 


CI 


C5 


C9 




CF 


D5 




0322: 


CF 


CI 


D5 




C5 


C9 







1 

2 
3 
4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
31 
32 
33 
34 



IDENTIFICATION DESV0YEUES 
AFIN DE LES PERMUTER 
ENTRE ELLES (CRYPTER) 

Guytiechette F*vri«r 15 



ASSEMBLAGE 
PAR ProCODE 



ORG 


ORG 


$300 




BUFFER 
CSR 


EOU 
EQU 


£200 
$06 


; GET 6 porfir d un (ichter T 

; CasB-r^ponse "poquee" en basic 




LDA 
CMP 
BNE 
BfcQ 


ni irrrn 

BUFFER 
£50 D 
INIT 

REPONSE 


; Si "relurn", retour ou basic ! 
; ...si la reponse est positive 


INIT 
BOUCLE 


LDX 
CMP 
BNE 
LDA 


£$00 

A5CI.X 
INC 

A5C2.X 


Pour tester les 5 voyelles 
; Vraie compar6e au contenu de A 
; Si ndgotif, on continue 
; Pousse est mise dans A 


REPONSE 


STA 
pre 


CSR 


; Elc'«tlar6ponse... 

* Cl IIMlQ fill f AfAltf 


INC 


INX 
CPX 
BNE 
BEQ 


£$05 

BOUCLE 

REPONSE 


; Plus 1 dans la boucle 

: II y a 5 comparisons 6 (aire 

. Ce n'est pas AEIOU 


ASCI 
ASC2 


ASC 
ASC 


"AEIOU" 

"OAuer 


Les vraies 
; Les tousses 



TABLE PES SVMBOLES ASCI WJlD ASC2 $0322 BOUCLE ...WJ0B BUFFER S02OV 

ORDRE ALPHABET1QUE CSR M -» 53006 INC W3I6 WIT «309 REPONSE , , , mil 



A portir du meme canevos, it est evidemment possible d'utiliser une outre c\6 pour coder un texte. Si 
le nombre des caractfrres a permuter est different de 5, it faul olors modifier lo voleur indiqud© a la 
ligne 28 (octet $318). Les odresses S31D et 5322, it* fournies par ProCODE, seront facilement recal- 
cufdes si I on ne dispose pas d un assembleur. Je vous rappetle que cr6er uno ligne de DATA 6 portir 
d'une routine en ossembleur est obsolument enfantin. Prenons Texemple de cefto page (adresse 768 
6 796). II suHit de taper, en mode direct : 

PRINT "MM DATA"; : FOR I = 768 TO 796 : PRINT PEEK (I) ; V: ! NEXT, puis un RETURN, 

Une ligne 450 va s'atficher. Passer en mode ESCAPE, et lo volider en ollont de lo premiere 6 lo der- 
nifcre lettre, en utilisont lo fl&che droite — ». Effocor la dernifcre virgule avont le RETURN final. 

NESTOR, 

Note : Le I (clavier amiricoin) correspond au § du clavier AZERTY. Ou'on $e le dise dans les chaumlfcres I 

GUY-HACHETTE t4 



INITIATION 



Decouvrez 
I'assembleur 

avec Madeleine HODE, 
l auteur de ORIBOUILLE 




Programmer en assembleur, c'est le jeu le 
plus merveilleux que Ton puisse imaginer. I 

Apres une parcille affirmation, beaucoup de 
lecleurs onl tourne la page* Je peux supposer que nous sommes seuls, vous qui §tes 
tente par cette "recreation' 1 , moi qui voudrais vous aider a I'opprendre. 

Toutelois, jeu n'esl pos loujours synonyme de i aci lite comme vous le savez deja. 
D accord ? Alors, nous pouvons commences 



Utilise! d'abord 
le mint-assembleur 

l© mini-ossembleur vous 
est e*pliqu^ dans 'la pra- 
tique de I'Apple II". C'est 
une facility que donne le 
systftme pour £chre de 
petites routines et lei tes- 
tor ropidoment, sons pos- 
ter par tout le circuit des 
assembleur*. Circuit qui 
implique. outre I Venture 
du programme, son ©nre- 
gisfrement. et son assern 
blage avec manipulation 
de disquetles, erreurs 
varices 6 corriger, etc. 
Le mini obvcmbleur est 

trAs simple, et il vous suf- 
fira amplement pour veri- 
fier par de pelits tests les 
micanismes que vous 
voudrez dtudier. II pr£- 
sente pour le d6butant on 
triple avantage : 
1, 11 nicessite trds peu de 



connaissances {deux ou 
irols pages d'explications, 
alors qu'un manuel d'as- 
sembfeur peut en compter 
50 6 60). 

2* il vous donne ( habitu- 
de de tester on direct vos 
idees avant de les integrer 
:■ un programme en (or- 
me, plus ou moins lourd el 
plus ou moins rigide. 

3. enfin, vous n'avez pas 
6 I'acheter : ll est dans 
votre machine. 
Ouond vous serez sur de 
votre vocation, achetei un 
ossembleur. ProCODE. 
par exemple. Cela dit. 
votre liberie de choix 
reste entiere, et personne 
ne se permettrait, lei, de 
vous influences 

Materiel 

St vous §tes reellement 
tente par I'assembleur, si 



vous Ate* en fond*, et si 
vous voutex que votre oqui- 
pement soil vraiment com* 
plet, achetez-vous : 

• uno calculotto do pro 
grammour, qui tonctionno 
en hexadritimnl auwi bien 
qu'on decimal, et qui troite 
les operations logiques 
(AND ORA EOR}* 

Sachez tout de mfirne que 
votre Appto tail let addi- 
tions et les soustroctions en 
hexadecimal. Sur un seul 
octet, et avec seulement 
deux rombres, certes, mals 
e'esi ddjii mieux que vos 
doigts. Comment ? Tapez 
CALL-I5I i Vous avez I* 
monileur. Tapez alors votre 
optirotion. Par exemple 79 
4 32 RETURN vous amene 
le resultot = AB. A vous de 
penser ou* retenues et d'en 
tenir compte. 

• si vous avez un Apple lie. 

(tun* ptt go t&) 
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□chetez le kit qui tui don- 
nera le protcsseur, la 
ROM et le d£codeur de 
carac tires du lie. Vous 
aurez alnsi une machine 
plus raptdo. plus puis- 
sante, avec un mini- 
assembtour tr&s bien 
con^u e! trfes commode qui 
vous (era passer sur voire 
clavier des nuits r^elle- 
ment magiques. 

Pratique et exercices 

Choisissez entre deux 
rnethodes : 

• utiliser un manuol d'ini- 
tlation qui comporte beau- 
coup d'exerctces. Si vous 
trouvez que les ouvrages 
qui sont indiqu6s ci-dessous 



nen pr£sentent pos suffi- 
sommonl, demandez con- 
soil d votre vendeur* 
• explorer, diHiciloment, 
tentement, mats fructueu- 
sement, les routines du 
moniteur. 

Et pourquoi 
tout cet effort ? 

Pour le plaisir* Pour la patx 
de I'dme. pour lo vigueur et 
la sante du neurone. 

Mois encore ? 

Tout depend de voire Ima* 
glnalion. Si vous concevez 
focilemenl lout ce qu'un 
ordlnafeur pourroit faire 
pour vous amuser. ou 



pour vous aider, si vous 
avez des envies, dos be- 
soms, des projets, oucun 
probldme. Vous finirei 
par ecrire vos program- 
mes, et vous vorroz que 
I'ossembleur, pour cerlai- 
nes routines, est I'outil le 
plus ad£quat, le plus eie- 
gant ef te plus rapide. 

Vous passerez avec vir- 
tuosity du Basic ou du Pas- 
cal 6 I'assembleur, selon 
des rdgtes et des propor- 
tions que vous determine- 
rez £> votre guise. 

Et ceux qui n out pas cette 
forme d'imagination ? 
Ceux-la, il y a longtomps, 
n'esl-ce pas. qu'ils ont 
tourne la page 



'Pratique dos Apple" volume II. par A. Andrieux 
et G- Creuzet. Editions Radio. 

"Programme! ion du 65B2" de Rodnoy Zaks, Adltlons Sybex. (Vous pouvez vous arr£ter avant le cha* 
pifro Techniques d'enir4e**$orti*s") t 

Pour passer des connaissances theoriques donn^es par Rodnay Zaks au pilotage de \ ossembieur 
sur un Apple II; "to pratique de VApple IF\ 3* volume, de Nicole BreaudPouliquen et Daniel Joan 
David, editions du P.S.I* 

Vollb de|d de bons pav6s sur la route de lossembleur, II y o certainement d'outrcs excellents 
ouvrages d'initiation, Mais ne los connaissant pes. jo n*en parlerol pos. 

II y a aussi les ouvrages specialises. Votci quelques litres, mals gardez-vous do les acheter avant 
d avo*r ossimile Tun des precedents : 

• Monuels de reference Apple He ou He £dil6s par Apple* 

• Monuels ProDOS edites par Apple (ProDOS User's Kit etc.; 

"Beneath Apple ProDOS", by Don Worth and Pieter Lechner, editions Quality Software, L ouvrage 
precedent des mimes outeurs ("Beneath Apple Dos"), a livr* tes secrets du Dos 3.3 6 tous les pro- 
grammers de ma generation, et tous le connaissent — ou devraienl te connaltre — par cceur. II 
reste Touvrage fondamental pour le Oos 3.3, dont la documentation est moins obondante que celle 
du ProDOS, 

D'une maniere g6nerale ( les ouvrages lechnlques edit£s par Apple soni clairs et complets, lis 
apportent au programmour experiments une satisfaction proche de la beatitude. Mais ils sont dil- 
ficiles pour des debutants. Attendez un peu, Alnsi, quand vous les aborderex, vous decouvrirez 
qu'iis repondent 6 des probldmes que vous vous serez deja pos£s. Vous les comprendrez plus foci- 
lement, olors que leur in!6ret vous echappera en grande partie si vous les altoquez trop \6i* 

II y a enfin tous les ouvrages que vous irez feuHleter dans les boutiques, et par lesquels vous 
vous lalsserez tenter, a tori ou 6 roison. A dose moderie. les achats stupides sonl quand 
meme le sel de Toxtstence. * 



Bibliograph 
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MICRO-RECRE 



DOS 3.3 ProI>OS 



La Personne X 

Logique £l£mentaire 

fTj IX personnel (designees par leur prenam. 
V\ c'osl plus sympo I) sonl eecl... el no son) pas 
\zJ cela. D'opres les renseignemenls. le pro- 
gramme (race le portrait -robot de lo personne 
X. qu'il s'aglt evidemment d'ldenflf ier. 

Ce |eu repose sur une logique elemenlaire qu'll 
n'esl pas tnterdit de developper (a vous de jouer I ). 

le program mo actuet peul 6lro complete par une 
poge d 'ex p Heal Ions et par d Quires lignes de don- 
noes (DATA). 




H esl plus simple d'uttli- ^ 
ser pluileurj series de 
variables Qu'un seul tableau. 



On peul eholsir de (ouer ± 
ovee les don nees du pro- 
gramme : C e»l plus ropide 
que de tessalilr. 



CALt-191 actionne la clo- 
the (CTHl-G). 



Aucune log-quo n est pos- ^ 
sible si on donna le ™ 
memo troll de caroclere 6 
plusieurs personr 



IB 
20 
30 
40 
50 
48 
70 

bb 

98 



no 

120 
130 
M0 
150 

ue 

170 
180 
190 



206 
210 
220 
230 
240 
250 
240 



TEXT i PRINT CHR4 <21): HOME : CLEAR 
DIM S«<4>,S1«<4,3>,S2»<4,3>:SB « 3 
FOR 1 = 1 TO 10 iT* = T» ♦ ■ "I NEXT 



FOR 1 



-EM 

RBI 
REM 



1 TO 19iV» - V» * 



i NEXT 



VTmB 

n SA 
VERSE 
RAMME 
GOSUB 
IF U 
GOTO 



«■*•#■ leaf Hi** •**■■*■•••••• 

SAISIE OU 00NNEES Bi DATA • 



6t HTAB 8: INVERSE i PRINT l[i NORMAL i PRINT 
ISIE DES ELEMENTS"! PRINT i PRINT I HTAB Bl IN 
i PRINT 2l1 NORMAL i PRINT 1 ELEMBJTS DU PROG 



1 90 s IF 
- 2 THB. 
1)0 



U = I THBJ 420 
GOSUB 1160:5 « 



6i GOTO 490 



REM 
REM 
RB1 



• ATTENTE 5AN5 CUR5EUF 



CALL - 198: POKE - 
7l POKE - 16368,0:1-1 
N 



14368,0: WAIT - 16384,128,12 
= PEEK ( - 163841 - 48: RETUR 



! 



REM 
REM 
REM 



CHA5SE AUX REPETITIONS 



TR» = "MOT DEJA UTILISE - A CHANGER" 
IF LEN <S1«<S,S1>> > 19 OR LEN <52»<S,S2>1 ) 18 
THEN TW * "UN SVNONYHE DE HOINS DE 11 LETTRES SVP' 
1 GOTO 360 

FOR I - I TO Si FOR J = 1 TO SB: IF PR = 3 THEN 32 
I /suite flu -erso/ 



TREMPUN MICHO 



288 
290 
388 

3ie 

328 
338 
348 
359 
368 

378 
388 
3*8 



418 
426 
438 

448 
458 
468 
478 

48B 
498 

588 
510 

528 
536 
548 
556 

568 



578 
5B8 
590 



618 



628 
638 
648 
658 
668 
678 
688 
698 



IF S » 1 AND 
IF SlKS.Sl) 
IF Slt(5,SI) 
GOTO 358 
IF S = I AND 
IF S2*(S,S2) 
IF S2«<S,S2) 
NEXT : NEXT 
PRINT : VTAB 



51 « J THEN 388 
= Sl*<I,J> THEN 
«= S2»<1 ,J> THEN 

52 = J THEN 348 
= S2»<1 ,J) THEN 
• S1»<1 ,J) THEN 

RETURN 
22 1 CALL - 958: 



366 
368 



368 
368 



PRINT TR»: POP : ON 



PR GOTO 518,518,558 



REM 
REM 
REM 



3 A I 5 I E 



......... 



NORMAL : PRINT 



PRINT sr 
* " THEN 



- 1 1 
518 



S = 8tSl = 6tS2 ■ 6 

HOME : INVERSE : PRINT "LE SUJET'j 
■ <UN SEUL MOT-6 SUJETS AU TOTAL)' 

VTAB 2: PRINT T* 
SI = 8:52 = 6 

S - 5 • 1;PR ■ 1 1 PRINT ; VTAB 4i CALL - 950 
PRINT I VTAB 4i INVERSE i CALL - 19B: PRINT Sp N 
ORHAL : INPUT " -> '[SStS)! IF S»(S) » ■■ THEN 476 
B0SU8 618 

PRINT : VTAB 4i CALL - 958i INVERSE i PRINT LEFT 
» <S*(S>,13)t: NORMAL : PRINT " ESTi'tPR * 2 

51 • SI * 1 

PRINT : VTAB SI » 5: CALL - 198 

INPUT *"iSlt<S,Sl)l IF S1*<S,S1) 
60SUB 259; GOSUB 618 

IF SI < 3 THEN 506 

52 = 52 4 1 

PRINT : VTAB 4i HTAB 26: IWERSE i PRINT LEFT* 
»(S),II)jl NORMAL : PRINT " N'EST PA5:':PR » 3 
PRINT i VTAB S2 • 5i HTAB 28 i CALL - 19Bi PRINT S 
2" - "j: INPUT " |S2»<S,S2>i IF S2*(S,S2) ■ ■" THEN 
568 

GOSUB 2501 GOSUB 616 
IF S2 < 3 THEN 540 
IF S < 6 THEN 458 
GOTO 698 

POKE - 16368,01 VTAB 22; CALL - B6B: CALL - 198 
i IWERSE : PRINT "RETURN* ] i NORMAL i PRINT ■ POUR 
CONTINUER OU ESCAPE * : l GET RtiR » ASC <R») l IF R 
■ 13 THEN RETURN 

PRINT l IF R < > 27 THEN PRINT i GOTO 610 
POP i ON PR GOTO 476,510,550 



CS 



REM 
REM 
REM 

i 

01 - 
i • 



t LA PERSONNE X PREND FORME • 
.............................. 



I ♦ 
SB) 



INT ( RND <1> • S)iQ2 = 1 * INT ( RND <I 



tron* dolf lenir compt* 

gnement* I E5T — N£5T 
PAS* 



^ PR est un pomieuf qui 
lout 



CAU.-96I vide le bat do 



Si I* tujal compoH© plut 
d« 13 1 j 1 l i l ' t" 1 » ■ x 



ne *ont pa* oHich^$ 



Lo longueur des rensei- 
gnement* etf limiito 6 10 
taractire** Ell* «t 
contrdtee ou d6but du 
tout -programme "Chaise 
ou* r£p£trtionV + llgneJM 



^Pour chaque mot rentr* 
™ H «f demand* de tonlir- 
mer par nr. RETURN. 



Q» at Q? determinant quel 
- *era le r enseignemenl 
▼ permoMonl d 'identifier 
fa ^'loifnj X, 



GUY HACHETTC 



Copie de I'ecran, 
oblenue a I 'issue 
de la saisie 
des donnees. 



EST 



TIf 





oulr* (hoix uk'QIolrc 



Cb» quolqucrs ligne* 41a- 

bliswnt le portrali-robor 
de la penonne X. 



L'ofitcnoge obtenu tti e*i » 
cslul do*»t nous vous ' 
donnons una r«pioductton 
•n haul de la poge. 



768 

718 
728 
738 
718 

758 
768 

778 
768 
798 : 
308 REM 
818 
828 
030 



X = INT < RNO <1> » 2>iER = 8:IC = ER:IP = ER;F1N 
= ER 

FOR 1 = 1 TO SlH - 1 4 INT < RND <J> » SB) 
X - X * ll IF X - 2 THEN X - B 
IF 01 < > I THEN 768 

IF X = 8 THEN IP = IP * 1iS1»(8,1P> = 81«(l,Q2)l B 
0T0 788 

IC - IC * i;S2*<0,!C> = S2»(I,02>: GOTO 788 
IF X b | THEN IC ■ IC ♦ I lS2»(0,IC> = S1»<1 ,H): GO 
TO 788 

IP ■ IP * ItSlttB.IP) ■ S2»(1,H) 
NEXT I 



REM • U S'AGIT DE L ' IDENTIFIER • 
REM •*•«»•»«••»••*•■•*•♦••*•«•#•♦• 



858 
860 

878 
888 
698 



LA PERSON NE X 



910 



TEXT i HOME 

HTAB 8: INVERSE i PRINT 

■: NORMAL : PRINT T* 
VTAB 4i INVERSE : PRINT V*j : HTAB 22 1 PRINT V* i VT 
A3 14: PRINT V*ji HTA8 22t PRINT V»: FOR I ■ 5 TO 1 
3 i VTAB II HTAB Ii PRINT ■ "[i HTAB 19i PRINT " "|l 

HTAB 22 i PRINT ■ » j i HTAB 40! PRINT " "i NEXT 
VTAB 6i HTAB 3: PRINT "EST:"!! HTAB 24: PRINT "N'E 
6T PASi'i NORMAL 

FOR I - I TO 3l VTAB 6 ♦ I • 2l HTAB 3i PRINT Sl»( 
8,I)[i HTAB 24: PRINT S2*(B,!)i NEXT 
POKE 34, ISt PRINT i HOME 

VTAB 16: PRINT "QUEL EST LE NOM DE " j i INVERSE : P 

R1NT "X*i NORMAL i PRINT LEFT* <T«,2B« 

FOR 1 - I TO 3t VTAB 17 • I: HTAB 1: INVERSE : PRI 

■ i . ■ i ■ 
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928 



936 

948 
958 



960 

978 
9B8 
998 
1808 

1818 
1820 
1838 
1848 
1858 
1868 
1878 



LA PERSONNE X (suite et fin) 

NT I)t KTAB 19: PRINT 1 ♦ 3p NORMAL : HTAB 3: PRIN 
T S* < I > 1 : HTAB 21 1 PRINT S*<I * 3): NEXT 
VTAB 161 HTAB 22: FLASH : PRINT ' "il NORMAL : CAL 
L - 19B: GET R»: POKE - I6368,B:R - ABC <R*> - 4 
B: IF R < 1 OR R > 6 THEN 928 

i/TAB I6t HTAB 22 1 IF R = 01 THEN CALL - 19B: PRI 
NT "VOUS AVE2 GAGNE!":F1N * ll GOTO 958 
PRINT "HELASt NONMER = ER ♦ 1 

CALL - 958: PRINT : PRINT "CAR 'S»<R)i PRINT i PR 
INT EST: "11 FOR 1 = 1 TO 3. PRINT SI*(R,!>" 
NEXT i PRINT «| PRINT "- N'EST PAS: "it FOR I » 1 
TO 3: PRINT S2f(R,I>* 'ji NEXT : PRINT " 
VTAB 23: PRINT "AVEC "ER" ERREUR' j : IF ER > 1 THEN 

PRINT "S- 
GOSUB 198 

IF FIN - 1 THEN 1818 
IF ER < 6 THEN 898 
FIN = ll VTAB 16: HTAB 22: CALL - 868: INVERSE : P 
R1WT S$(01>: NORMAL :R = 01: GOTO 958 
GOSUB 198 



RDl 
REM 
REM 



• A SUIVRE OU FIN DE JEU • 
■ iiiiiittm - " »• 



I 



1898 
1188 
1118 
1128 
1138 
1148 
1158 
1168 



1179 
1188 
1198 



VTAB 22: PRINT : 
NORMAL : PRINT ' 
2)1 NORMAL : PRINT " 
T 3|1 NORMAL : PRINT 
POKE - 16368,8:R = 
> 3 THEN 1B7B 
ON R GOTO 698,18,118 
TEXT : HOME l END 



- 198: INVERSE 



CALL 

AUTRE VERSION "|l INVERSE i 
JEU COMPLET " I : INVERSE 
" TERM I HE* i : GET R* 
ASC <R$> - 48: IF R < 1 OR R 



PRINT 1 | ■ 
PRINT 
: PRIN 



REM 
REM 
REM 



• POUR TOUS LES PARESSEU* 



FOR 1 - I TO 6: READ S*(l)l FOR J = 1 TO 3l READ S 
1»<I,J): NEXT Ji FOR K - 1 TO 3: READ S2»(l,K)i NEX 
T K: NEXT 1 1 RETURN 

DATA LOUISE, TIMIDE, GRANDE, FERMI ERE, POITEVINE, RAPID 
E , BRUNE , ALBERTINE .MENTEUSE , FACET I EUSE , Rl EUSE , PAR I SI 
ENNE ,RIDEE ,TOUCHANTE 

DATA ANTOINETTE , BLONDE , GAI E , BELLE , SENSI BLE .AFFABLE 
, REVEUSE , EULALIE .PAUVRE , FA I BLE , DOUCE , GROSSE , ANGEVIN 
E, MAR I EE 

DATA COLETTE ,OUBLI EUSE , INSENSIBLE , COR I ACE ,RANCUNI E 
RE, EPI CI ERE ,SECHE, CHRISTINE, GENT I LLE,MEDECIN,POTELE 

E,R0USSE,CURI6USE,VELLEITA!RE 



.On tomptobitit© ton* 
' molremenl let erreurt. 



En IM te Uouvo lo bou- 
d« d'atlenle. 



j Si lo rtombrB d'orraurt 
^attaint 6. il laul en roui 
cat olficher lo roponse. 



^ Lo i«o peut recommen- 

I on vbui avec let mimei 
oonnBB*. l')d«nl)licalion d* 
fo Penonno X n'Bn dovienl 
pat. pour auianl enlanltne 
(conitair*mBni 6 te qu« rati 
pourrail penter ). 



Nalutellement. vou* powvei 
modifier el completer telle 
port i e du programme. II 
teratl olors possible d'allsr 
aloaioiremenl 6 la poche 
oux renteignomenlt ! 
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I VISUBLOCS I 



Une autre 

maniere 

de 

visual iser 
vos 

nombres 




99 & PLUS 



85-89 



88-84 



7S-79 






78-74 



65-69 



68-64 



PROPORTION DE FEMKES CHEZ LES PLUS DE 68 ftNS 



SORTEZ de l'otdinaire et donnez de nouvelles dimensions aux 
chiffres qui emaillent vos rapports... ou, plus simplement, d ceux 
qui traduisent vos depenses annuelles (les loisirs par exemple). 
Le programme VISUBLOCS travaiile dans la page graphique 
numero 2 (HGR2), a 1'adresse $4030 (16384), et nous avons installe la 
FONTE de caracteres d 1'adresse 12288 ($3000). En supprimant tous 
les REM, il est possible d'utiliser la page HGR, mais cela ne presente 
pas d'interet pariiculier sur les APPLE actuels. 

Vous comprendrez facilement le fon ctionn ement de VISUBLOCS, au 
fur et a mesure de la copie de son listage. 

Un conaeil : Plutdt que de suivre 1'ordre logique des lignes de pro- 
gramme, essayez de taper les instructions dans I'ordze exact oil elles 
vont se d^rouler. Ainsi, apres la ligne 20, passez d 1'adresse 2060, 
puis a la ligne 310, etc. C'est une demarche apparemment desordon- 
n£e, mais qui a le mtrite de respecter la structure (bonne ou mau- 
vaise) du programme que 1'on 6tudie. 

Saiste des donnees :Le menu ne comporte pas d'option "Correction 
de donnees", mais celle-ci existe, en passant par "Creer un fichier de 
donnees". Si Von choisit l'option "Modifications" (ligne 1270), les 
donnees en mtmoire sont visualiseer et on peut ou bien les modifier, 
ou les conserve r par un simple RETURN. 
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f VISUBLOCS.2 I 



18 LOMEM: 24588 

28 GOSUB 2868: GOTO 318 

38 : 

48 REM ••••#••••••••••••»•*•• 

58 REM •«* aTTENTE 5ANS CURSEUR • •• 
60 REM * *• • •••••• 

78 : 

88 CALL - I9Bi POKE - 16368,0: WAIT - 16384,128,127: POKE - 16368,8: 
B ° PEEK < - 16384) 

98 IF B ■ 9 THEN POKE 34,21: GOTO 1999 
189 IF B = 10 THEN POKE 34,21: GOTO 1988 
llfl IF B = 18 THEN GOSUB 2128 i POP : GOTO 318 

128 IF B ■ 63 THEN HOME : PRINT : PRINT D*' CATALOG" l GET R»: PRINT tR* = 

■■■I POP l GOTO 319 
1 30 RETURN 
148 1 

138 REM ..«»•••••*•#.. 

169 REM BOUCLE 0' ATTENTE ••• 

179 REM ••••♦....-..*♦•......•• 

188 l 

198 FOR E - I TO 1588: NEXT E: RETURN 
288 : 

219 REM *•*•••••••••*•«•»«•» 

228 REM CONFIRMER LE CHOIY ••• 
239 REM ••••«■•«••»•••••» 

248 l 

258 PRINT "Confirmtz votr« chotx par un • CHR* <34)"oui" CHR« '341: RET 
URN 

268 i 

278 REM .♦••♦»•*•• 

288 REM MENU GENERAL ••• 

298 REM MmMIWMI I IHUMMWMH l 
389 : 

310 GOSUB 1118 

328 PRINT : HOME : VTAB 1: INVERSE : PRINT 1 QUEL EST VOTRE CHOIX 
? ';: NORMAL : PRINT " ' 

338 FOR I * 1 TO M: HTAB I I VTA 8 2 * 1 • 2: INVERSE : Ntftff If I NORMAL : 
PRINT "> " MID* <M»,I • 38 - 29,38>: NEXT 

348 FOR I = 1 TO Mt HTAB 32: VTAB 2*1*2: PRINT 1 ': NEXT 

358 CALL - 958 

368 IF R " 1 THEN R = 8: GOTO 428 

378 VTAB 22: PRINT " • TAPER UN (■;: INVERSE : PRINT | I NORMAL I PR 

INT "> POUR LE CATALOGUE" 
388 GOSUB 80 :C ■ B - 48: IF C < 1 OR C > M THEN 380 

398 VTAB 2 ♦ <B - 48) • 2: HTAB 38: PRINT "<-'|: FLASH : PRINT C: NORMAL 
i VTAB 22: HTAB 4: GOSUB 258: GOSUB 88: IF B < > A5C COM ANO B < 
> ASC Co') THEN 349 

488 VTAB 22: HTAB 1: PRINT T* 

418 SPEED* 158: INVERSE : FOR I = 37 TO 32 STEP - !: HTAB 1: '/TAB 2 * C 

• 2: PRINT ' -t NEXT : NORMAL : SPEED= 255 
428 ON C GOTO 1238,1760,440,430,1648,518,2238,2388 
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1 VISUBLOCS.3 # 

438 GOSUB IBM: HTAB I: UTAB 22: CALL - 958: INUERSE : PRINT "PAGE GRAPH 

IQUE EFFACEE" : NORMAL i GOTO 348 
448 IF HG = B THEN 223B 

45B GOSUB 998: GOSUB 88: GOSUB 1MB: GOTO 340 
468 r 

470 REM lUnlWllinillMMMniWI l M 
488 REM IM PAGE GRAPMI QUE <TPACE> 
498 REM ' HimmUHHUII I I II HIIHH 
588 : 

318 IF N < 2 THEN UTAB 28: HTAB 5: INVERSE : PRINT "DONNEE5 TOTAL EMENT I 

NEXISTANTES" : NORMAL i GOSUB 1 1 7B : GOTO 348 
528 HGR2 : HC0LOR= 3: UTAB 19: CALL - 958 
538 G - INT <N / 2): IF < > N / 2 THEN G = G ♦ I 
548 J = 278: FOR I ■ I TO G - 1 iJ = J - 11.5: NEXT 
550 F = 8 

540 FOR I = 1 TO N - 1: IF UAL <A*<I,1)) > = UAL <At< I • 1,1 >> THEN 58 


570 A» - A*<!,l>iA*<I,l) = A»<I t l,I)iA*<l » 1,1) * A»iA« • A«<I,0)iA*O, 
B> " MCI * 1 ,0) :A»(I ♦ J ,8) ■ A*:A» = A»( 1 ,2) :A*< 1 ,2) = A«( I + 1 ,2) iA 
»<I + 1,2) ■ A»!F = 1 

530 NEXT : IF F = 1 THEN 558 

398 T = B:S * T:X = TrY « Gi FOR I » 1 TO N STEP 2:X = X » 1 lY " Y t 1 
600 B*(1,0) = At<X,8MBS<I,2> ■ A»(X,2):B»<I,n - •■! 1,1): IF Y f = N THE 
N M<I • 1,B) - A*(Y,8):B»<I ♦ 1,2) - A»(Y,2)iB*<I • 1.1> « A»(I * 1,1 

618 T ■ T t VAL <W<I,2)) t NEXT 

628 U * J / TiK * BiO = - 18iP- 18lO= I:U-0iW- 1:2 - 8 
638 K = K * 1 

448 S « < UAL <8f(K,2>>) » Ui IF K - 1 AND S * 35 ♦ < UAL <B»'K - 1,2))) I 

U > 165 THEN P - P . .10:U = U - .18: GOTO 640 
650 HCOLOR= 2:U = U * 1 i IF U = 1 THEN • * * P:W - I 
640 IF U = 2 THEN U = Z * 23iU = 

470 FOR I - U TO W * S - 1 STEP .41 : HPLOT * 9 - 1,1 TO 0,1: NEXT 
688 HC0L0R= 7: IF K ■ B THEN SS « • S ♦ 7 

498 HPLOT 0,U TO ,U * S - 1 TO • S - 1 ,W * S - 1 TO • S - 1 M TO 0,W 
700 : 

718 REM MimHHHmm||l|HHHfl 
728 REM LEODJDES DE5 8L0CS ••• 

730 REM •*«*!••■■■••••«••••••««••••••* 

740 I 

758 VT = Id » S ♦ B:L = LEN <B»(K,8)>: IF L > <5 + 7) / 6 THEN L » <B • 7> 

/ 6iB» • LEFT* (B*(K,B),L)i GOTO 778 
760 B* ■ B»(K,0> 

770 OE = S - L » 4tDE « DE * L • 6 

788 IF ) 1 THEN H = + 2 ♦ S - OE: GOTO 888 

790 H = I ♦ S - OEl IF H < 1 THEN H « 1 

886 FOR I = 1 TO L:AS = ASC f MIO» (W,l,l)> - 31: DRAU AS AT H.VTlH.- H 
» 6: NEXT 

918 HPLOT 0,U ♦ S - 1 TO + 6,U * S » 5 TO + S + 5,U ♦ S • 5 TO + S 

- i,u + a - i 

828 HPLOT « S • 3,U • S O TO « 3 ♦ 4 TO • S - I,U 

830 IF S > 2 THEN Z = S U 
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1318 N = 8 

1328 N = N * II IF N > 12 THEN N = N - 1: GOTO 1538 
1338 VTAB 3 ♦ N:E* = ' ' : IF N > 9 THEN E» - " 

1341 CALL - B68: PRINT E*N" -> -|i IF NO < > B THEN HTAB 7: 

PRINT A*<N,fl); 

1350 CALL - 198i HTAB ?l INPUT "jA*: IF A* » 'FIN" OR A* « Mm" OR A* = 

■Fin* THEN N ■ N - li GOTO 1538 
1368 IF A* - AND N > 1 THEN N = N - 2 1 GOTO 1328 

1378 IF AS ■ •»•■ OR <N = 1 AND A* - "»"> THEN 328 
1388 IF A* ■ " * AND HO < > B THEN A* = A*(N,8>: GOTO 1418 
1398 IF A* = THEN 1336 

14BB IF LEN (A*> > 12 THEN A* ■ LEFT* <A*,12) 

1418 VTAB 3 * N: HTAB 7i CALL - BAB: PRINT A*i: HTAB 25i PRINT " 

. • 1 1 I F HO < > 8 THEN HTAB 25i PRINT A*(N,1)] 
1420 CALL - 198: HTAB 25i INPUT "lB»: IF B* ** " AND NO ( > 8 THEN B* - 
A*<N,1> 

1439 IF B» = " OR B» - THEN 1338 

1448 FOR I = 1 TO LEN <B*>: IF ASC < HID* <B*,I,1>> < 48 OR ASC v HID* 

(»,!,!)> > 57 THEN VTAB 3 ♦ Nl HTAB 24 * I l FLASH i PRINT MID* (B», 
1,1)1 NORMAL : CALL - 198: CALL - 198: GOSUB 198: GOTO 1418 

1468 VTAB 28: HTAB U GOSUB 258 i GOSUB 88: IF B < ) ASC ("0") AND B < > 

ASC Co") THEN 1418 
1478 VTAB 2Bi CALL - 868 

1488 HTAB 24i VTAB 3 * Nl CALL - 868: HTAB 24 •* IB - LEN <B*>: PRINT B* : 

A*<N,8) - A*:A*CN,1> = B*:A* = " :B» ■ " 
149B T - 8: FOR I • 1 TO N:T - T ♦ VAL <A*U,1)>: NEXT I 

158A FOR I - 1 T0N I A*<I,2) = STR* < INT < VAL <A*<I,1>> / T * 10888) / I 

88): NEXT : IF A * 1 THEN A = 8: RETURN 
1518 FOR I - 1 TO Ni VTAB 3 + It HTAB 35: CALL - B6B: HTAB 39 - LEN ( ST 

R* ( INT ( VAL (A«(I ,2>))>>J PRINT A*(I,2): NEXT 
1528 OOTO 1328 

1530 R = 1 : GOSUB 1640 

1548 VTAB 28: HTAB 1: CALL - B68:F* » "" 

1558 INPUT "TITRE DU FICHIER ' jF»: IF F* - »■ THEN VTAB 28: HTAB li INV 
ERSE : PRINT "CONFIRMED NON-ENREG I STREHENT PAR " CHR* <34)'N0N- CHR* 

<34): NORMAL : GOSUB 88: IF B < ) ASC < "N" ) AND B < > ASC <'n") T 
HEN 1548 

1568 IF F* = " THEN 1588 

1578 VTAB 28: HTAB 1: CALL - B68: INVERSE : PRINT ' ENREGI STREMEMT 'F*i NO 
RMAL : VTAB 19: PRINT WOPEN'F*: PRINT 0*"WR1TE"F*: PRINT Nl PRINT C* 
: FOR 1 ■ 1 TO N: PRINT A*<I,0)f PRINT A*(I,l)l NEXT : PRINT DVCLQSE" 
F* 

1580 D ■ 1 l GOTO 318 



1598 : 
1680 REM 



1610 REM TITRE OU FICHIER •** 

1628 REM ■ ■ ■■ —*■— mmiiiMi 
1638 : 

1648 HTAB 1: VTAB 28: CALL - 958: INVERSE : PRINT "TITRE DU GRAPHIQUE" l N 
ORMAL 

1658 VTAB 22: HTAB 4: FOR I = 1 TO II: PRINT NEXT : PRINT 



GUY-HACHETTE 



7* 



f VISUBLOCS.5 I 



1668 VTA8 22! HTAB || PRINT '-> "C»( i VTAB 22 1 HTAB 4: INPUT "|A«i IF A* 
= THEN 31 8 

1678 IF LEN -A*) > 44 THEN 1648 

1688 VTAB 20: HTAB I: CALL - 958: INVERSE : PRINT A*: NORMAL l '.TAB 22: H 
TAB 1: GOSUB 259: GOSUB 39: IF B < > ASC ("0"> AND B < > ASC Co** 
THEN 1648 

1690 C* = A*;A* = IF R > 1 THEN R = 8s RETURN 

1788 GOTO 318 
I7IB : 

1728 REM M NlllllllH 

1739 REM CHARGER UN FICHIER 

1748 REM HIHHHIM 

1758 : 

1768 VTAB 29: HTAB 1: CALL - 958l INVERSE : PRINT "TITRE DU FICHIER" |i NO 
RMAL : INPUT ' -;F*i IF F« - ■?• THEN TEXT I HOME : PRINT : PRINT 
CHR* <4)'CATAL0G- t GOSUB 88: HOME :R - I :C = 2: GOTO 319 

1779 IF F* = THEN 318 

1788 PRINT : VTAB 28: HTAB 1: CALL - 958: INVERSE : PRINT "CHAROEMENT DE 

"F»j NORMAL l PRINT : ONERR GOTO 1828 
1798 VTA8 18: PRINT : PRINT D*'0PEN"F*: PRINT DVREAD'F*: INPUT Ni INPUT C 

»:^FQR I = l TO N: INPUT A»<1,«): INPUT A*U,l>i NEXT : PRINT M'CLOSE 

1899 A » II GOSUB 14*8 : POKE 216,9 
1818 D - 1 i GOTO 348 

1B28 IF PEEK <222) - 5 THEN PRINT CHR» < 4) ' DELETE'F* : VTAB 28: HTAB II 

CALL - 958l FLASH : PRINT "FICHIER 'F*- INEXISTANT": NORMAL : GOSUB 1 
1 78 i GOSUB B8 

1838 POKE 216,8: GOTO 1760 

1848 i 

1858 REM IIMIillMniMHI I MMMimi 
I860 REM ••• FONTE DE CARACTERES 

1878 REM 

1888 i 

1890 IF DL - 1 THEN RETURN 

1988 AD = 122B8: ROT* 0: SCALE= 1 :F* ■ 'VISUFONTE" 
1910 VTAB 21 I PRINT i PRINT D*"BLOAD'F»" ,A"A0i iDL = I 

1928 POKE 232.AD - INT <AD / 256> » 256i POKE 233, INT <AD / 256 > i RETURN 
1938 : 

1948 REM l imMIIII M I I MmtfWmm 

1930 REM ••• EDITION <DMP» CARTE BIP>*»» 
1960 REM HII MIlni mMll lMI I II IMW 
1970 : 

I960 PRINT : PRINT D*"PR£l"i PRINT CHR* (27>"L003"i PRINT CHR* (9)"GLED2 
*: GOTO 2968 

1998 PRINT | PRINT DVPRfl's PRINT CHR* (27)'L«2l"i PRINT CHR* (9)"GLE2' 
209B PRINT : PRINT CHR* (4)"PR£9"l TEXT : GOTO 348 
2818 t 

2029 REM Mll ll llll i mmnniiH iit iH 

2030 REM ••• INITIALISATION t.. 
2040 REM »■ ■* ■■■■»■■■» ■— ■■■■■■■■»■■■■ 

2059 t 

2060 TEXT i PRINT CHR* <12)| CHR* (21): HOME : HGR2 
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1 VISUBLOCS.6 I 

849 IF U = I THEN - S 

859 IF K = 2 THEN VM - VT 

948 IF K < N THEN 639 
879 IF C» ■ THEN '38 

888 L - LEN (C»>:H - (279 - L ■ A) / 2iVT * VM + 17 

898 HPLOT H,VT « 19 TO H * L » 6.VT * 19 

988 FOR I 9 1 TO L:AC = ASC < MID* (C*,I,1)) - 31: IF AC = 32 THEN H - H 

♦ 6: GOTO 929 

919 DRAU AC AT H f VT:H - H » 6 

929 NEXT 

938 HG » 1: GOSUB 89: GOSU8 1118: GOTO 34B 

949 : 

958 REM ......•♦••«.«*••••«•••«•• 

968 REM H0R2 SANS EFFAC6MENT 

97B REM ■--■-•••-«•-••-•«•••-•■*••■••■ 

988 i 

999 X = PEEK (49232) * PEEK (49234) • PEEK (49237) + PEEK (49239) i RET 
URN 

1888 : 

1918 REM «.tn.....»n««.<i«»«t#«««t»«t« 

1929 REM EFFACEMENT HGR2 44989 

1939 REM MMMM«N««*l«*m»t*«»M«M 

1949 : 

1958 POKE 239,44i HCOLOR= 4: HPLOT 9,6: CALL - 3982:HG = 8: RETURN 

1868 I 

1978 REM M « M H» — ■■ ■« » — 

1888 REM ••• RETOUP MQOE TEXT ••• 

1898 REM •«*■•#•■«•••■•••••••••••■•••«• 

1188 : 

1119 TEXT I RETURN 

1129 : 

1138 REM •••••*■•»••*»•»••**••••#•••••• 

1149 REM HW BRUIT DE 8ALLE *** 

1158 REM •»••••••••••••■•••••■•••••*•*• 

1169 t 

1178 FOR I ■ 9 TO 38: FOR J = 49288 TO 49238 - I :X ■ PEEK <J>: NEXT J.Il 
RETURN 

1188 l 

1198 REM •«*«•••••••»••••■»•«■•*••■*##• 

1288 REM SAISIE DES DONNE ES •*# 

1218 REM • •••••••••••#••«••#•••«•**••• 

1229 : 

1238 GOSUB 1118 

1248 HOME : VTAB 1: INVERSE I PRINT ' SAISIE DES DONNEES 

"jl NORMAL : PRINT ' " 

1258 POKE 34,3iM0 = fl 

1248 HTAB ll INVERSE l PRINT 'MAXIMUM-12" : NORMAL : GOSUB 1179: HOME 

1279 VTAB 22: PRINT • (9> MODIFICATIONS U> NOUVELLES DONNEES" : GOSUB 89: I 

F B = 49 THEN 1399 
1288 IF B < > 48 THEN PRINT l GOTO 1279 
1299 MO = N 

1388 VTAB 22: PRINT Tt: HTAB 8: PRINT "Taper " CHR» (34>'fin' CHR* (34)' p 
our ttrmintr" 
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2878 DIM A*<13,2>,8V13,2> 

208B C* = 1 ' 

2998 FOR I = 1 TO 1B:T* ■ T* * ' "; NEXT 

2188 = - 18:2 = HP » 10:D» « CHW <A) 

2110 M4 = "CREEP. UN F1CHIER DE DONNEES CHARGER UN FICH1ER EX I ST ANT VOIR 
LA PAGE GRAPH! QUE EFFACER LA PAGE GRAPHIQUE CHANGER LE TIT 

RE DE LA PAGE TRACER LA PAGE GRAPHIQUE ENREGISTRER LE GRAPHIQUE 

FIN DE TRAVAIL" 
2128 TEXT i HOME :MB * R:M = B 

2138 VTAB 8s PRINT "CTRL-I PERMET D'EOITER LA PAGE GRAPHIOUE EN 
FORMAT SIMPLE CTRL-J PERMET DE REALISER CETTE EDITION 

EN FORMAT SIMPLE" 

2148 PRINT i PRINT "PENDANT LA SAI91E DES DONNEES 

UN . RENVOIE A LA DONNE E PRECEDENTE ET • 

« RENVOI E AU MENU GENERAL, SANS POUR AUTANT ANNULER CE QUI A ETE 

SA1SI 

2150 PRINT : PRINT "CTRL-R REAFFICHE CETTE PAGE DE FONCTIONS" 
2166 GOSUB 1148: GOSUB 88 s IF MB = IB THEN MB ■ 0: RETURN 
2178 TEXT : GOSUB 1 B98 : RETURN 
2190 : 

21V8 REM •••• ••••#••♦*•*••♦•••.»•••.•-• 

2288 REM ENREGISTRER LA PAGE 2 »*• 

2210 REM •«»■•».••••••«•••»••«•••••••• 

2220 s 

2238 IF HG = 8 THEN VTAB 2fl : HTAB 8: INVERSE : PRINT "PAGE GRAPHIQUE ENCO 

RE VIERGE": NORMAL : GOSUB 1170: GOTO 348 
2248 VTAB 28 i PRINT i INPUT "TITRE "|G«l IF G» = •■ THEN 340 
2250 ON ERR GOTO 22B0 

2268 VTAB 20: PRINT t PRINT WBSAVE"G«" ,A»4988 .L8192" 

2278 VTAB 20: PRINT : PRINT "PAGE 2 5AUVEGAR0EE SUP DISQUETTE": GOSUB 198: 

POKE 216,8: GOTO 340 
2280 POKE 2U,0i VTAB 28: PRINT "ERREUR NUMERO ■ PEEK < 222) I G0SU8 190: GO 
TO 340 

2290 POKE 51 ,9: GOTO 318 

2300 TEXT : HOME : VTAB 28: PRINT ■SG0T0229B VOUS RENVOIS AU MENU"! VTAB 1 



9: END 




TmUX DE CHOMAGE COMPARE (EN 1984, 
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VISUFONTE TAPEZ CALL-1S1. suivi de RETURN, puis enregistrei la 
— -^^"-^^^^^ tolalite des donn&es (attention I chaque enregistrement 

doit commencer par le numero do ligne, suivi de deux 
points, comme indiqud ci-aprds). Example : 

* 3000 : 64 01 DO 00 D9 00 EO 00 (puis RETURN) 
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Pour souver ce programme, faites un BSAVE VISUFQNTE. AS30Q0. IU29 

CONTROLE DE SAISIE Apr&$ avoir enregistre VISUFONTE sur dlsquetle, 

— fc*.— — offrez-vous h luxe de le confrdler rapidement, 
LJt VISUFOrslTt Comment ? Tapez NEW, tuM de RETURN, puis : 

10 FOR I - 12288 TO 12288 + 1064 : C = C + PEEK (I) : NEXT : PRINT C 

Ensuife : BIO AD VISUFONTE (et RETURN, bien sur). puis RUN (et RETURN). Apr&$ quel- 
qucs secondes un total devra apparaTtre sur votre £cran t St ce total est 75665.,, Bravo I 
Dans le cos contrairo, v4rifiez cheque ligne de VISUFONTE... 



VISUBLOCS fonctionne sous DOS 3.3 et sous ProDOS et comprond deux parties : 

— VISUBLOCS (BASIC), de la page 22 a lo page 27 ; 

— VISUFONTE (LM) t pages 2S-29. 



IMPRESSION; Uft lottructloftft de» llgnes 1980 
-1990 concerned rimprimanle APPLE DMP P 6qui- 
p£e d une inter loce-bufler de la societe SIP. Elle* 
d&vron\ 6tr« revues ef corrig^e^, en toncHon du 
rnafenet donf vous disposer Nolei que vcHJt 
ovei to poisibdito (done le menu) de sauver 
vo* VISUBLOCS *ur dtsqueti e. puis de let 6diter. 
par la suite, en utitUant le programme de votre 
choix. En general, 1'lnferfoce Itvree avec les 
imprimantes EPSON comporte une copie d'ecran 
grophique. Chef APPLE, une routine d'edition e«i 
lournlo &ur la dt&quotlo accompognant Ta docu- 
mentation (ca» dIMAGE WRITER, nolammentj. 



LIMITATtONS : II ott evident que certalnes don 
nee* *e pretent mloux que d'outres 6 une irons- 
formation en VISUBLOCS* 

Par allleurv on comprendro locilement qu*un 
nombre pair de blocs est visuellement plus satis- 
faisant qu'un nombre Impair. 

On rtmarquoro que, dons le COS dun nombre 
impair, test 1ou{ours la premiere rangee qui 
accuellle le btoc M suppl6mentQire'\ Etani donne 
qu un tr* place les valours les plus grandes en 
lete. une modifScatton du programme pourralt ou 
contrake renvoyer le bloc supplemental en bas 
de I'tcran.., NESTOR- 



THEMPIIN MICRO 




BOUTABOUT * 



Topei ct* 5S oden 
demeri un CAU-ISV 
tt souvtl-ltt par un 

■SAVE IDUTABOUT. 
ASMS LS37 



r 



0302: 
0385: 
8308: 
830?: 
03B8: 
830Dt 
838F: 
8311: 
8313: 
8315: 

0316: 
8318: 
0319: 
031 B: 
B31Dt 
031Fi 
0321 1 
0323: 



A2 
BO 
90 

ES 
E8 
D8 
A9 

85 

H? 

85 
AO 

A3 
36 
E9 
95 
A5 
E9 
85 
60 



00 
2F 
01 

88 

67 
48 



AF 

92 
47 



08 



03241 A9 0: 
B326l 85 67 
0328: 96 
032AI 85 08 
832Ci 4C 66 D5 

832Fi 09 88 00 

00 8C 3A 
36 00 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



45 



(#»•••* •*•*•*■« *<••**•*»* 

iper successi vement : * 

-NEW (attention au programme') • 

- BRUN BOUTABOUT * 

* - LOAD PROGRAMME 1 et CALL 790 * 

* - LOAD PR06RAMME2 et CALL 804 * 
■«**«••*•«•«■••«• *•■«***•>•*** **■•(• ••»*«**• 



ASSEMBLAGE 
PAR ProCODE 



LICNEl 

BASIC 

DE8UT 

FIN 

RUN 

• 



ORG 
EOU 
EQU 
EOU 
EQU 
EQU 



(jlf 

»32F 

•881 

•67 

*AF 

«D566 



;l ;r,f 8 ■■_:.-■< 
;D6but du programme Bas<c 
iAdresse du programme Basic 
(Adresse dt la fin du programme 
;Run, tout simplement! 



BOUCLE 



LDX 
LDA 
STA 
IKX 
CPX 
B4E 
LDA 
STA 
LDA 
STA 
RTS 

Lw'H 

SEC 
SBC 
STA 
LDA 
SBC 
STA 
RTS 



£•08 

LJGNEP ,X 
BASIC, X 

£»08 

BOUCLE 
£»09 
DEBUT 
£408 
DEBUT* 1 



FIN 

£*02 
DEBUT 
FIN* J 

£«ee 

DEBUT »1 



I In i 1 1 all sat i on de 
(Installation dt li 

J 



la bouc 
I i gne ( 



ill ny a que 8 caracteres 
jS'.i n'/ a pas *galit*... 
jOn tronpe 1 Applesoft 
;pour qu'il n'*crase pas la 
;llgne 0, lorsqu'tl ua charger 
ile PROSRAtHEI 
;Vers LOAD PROGRAMME] 



n Programme! ? 
on ua soustralrc 
4 soustr&in 
nouueau 



;Ou prend fi 
{Attention 1 
;2 petits octets 
ipour tromper de 
ic* brave Apple 
I sans oublier la retenue ( 
let la partie haute de 1'adresse 
;Vers LOAD PR0GRAMME2 



LDA £«QI 

STA 0EBUT 

LDA £*08 

STA 0EBUT*1 

JMP RUN 



; E t quant a tromper son me i 1 1 eur 
;ami, autant 'e + aire une 
;troisieme <a cause du dicton", 
imais dermere fois! 
iVoici la llste de PROGRArt-lEl -2 



e — 



HEX 09{.8D8eeBC3A8O30 iFausse I i gne 



SI VOUS ETES DEBUTANT, meHez voire Apple en roule en utilitanl voire diiquotlo MASTER. 
Toper NEW puis CAU-151. tl I 

* 300 ; A2 00BD 2F 039D01 08 E8 E0 08 DO F5 A9 09 85 67 A9 08 85 68 60 AS AF 38 E9 02 85 
67 A5 80 E9 00 85 68 60 A9 01 85 67 A9 08 85 68 4C 66 05 09 0B 00 00 BC 3A 80 00. e< un 
RETURN linol. Souvei ensuite voire programme par un : BSAVE BOUTABOUT, AS30O.LS37 



IMPOITAKI : L« 

del 

f ■ ■ r- a (TUl 

w i Bowl 6 bovi dot- 



CUV-HACHiTTE 



.10 



UTILITAIRE 



ProDOS 



Datez vos programmes 



l enisle maimenont lout un arsenol tfullliioires ProDOS. 
el Iq pluport d'entre eux permottent une mlse d jour de lo 
dote ... mais on no peut pas loujours s'offrir un utititaire... 
d'ou la rotson d'etre du programme cr-aprc*. Si vous le lisez otien- 
livement (mieux : li vous le dissequei}, vous constaterei qu'il est possible d'obletilr le memo resultat en 12 lignes, 
en 4liminont lei soisies et oHichoges sophisliques, de meme que les barrages prevu* pour interdire les e«eurs de 
manipulation. On est... ou pas perlectionnisle. C'esl loflaire de thocun 1 NESTOR. 




IB TEXT : PRINT CHR* (12>| CHR* <21)i HOME i INVERSE 
26 AN* * -JrtrJFE'^WRAURMHlJUNJULAOUSEPOCTNUJDEC 
38 FOR 1 ■ 1 TO 10:TR* = TR» * * "t NEXT 

■18 FOR I - I TO 5i VTAB 1 1 HTAB li PRINT 1 ",: IF I - 1 OR I ■ 5 THEN FO 

ft J ■ 2 TO 3?: PRINT ' " { i NEXT J 
58 HTAB 40: PRINT - *: NEXT i NORMAL I VTAB 3: HTAB 7i PRINT "QUELLE EST 

LA DATE DU JOUR V 
ofl VTAB 61 POKE 34.7 

78 PRINT CHR» s4>"PREFIX'i INPUT PR* i PRINT CHR* < 4 > "PREFIX • PR* 

88 HCTIE : PRINT "PREFIX" ) I INVERSE i PRINT PR*: NORMAL I PRINT 

90 01 = PEEK < 49048) - INT < PEEK (49848) / 32) * 32iD2 - INT I PEEK <4 

9641 ) / 2XD3 ■ < PEEK (49841 ) - D2 • 2> * B * INT < PEEK -I'MD I 32 

) 

100 IP > 8 THEN M* - MID* <AN*,D3 * 3 - 2,3) 

118 PRINT "DATE DU SfSTEME : * i ! 

128 PRINT RIGHT* i<"8" * STR* (DIM, 21 ♦ '-' " M»|i IF H* = THEN PRI 
NT 

136 PRINT » RIGHT* m '0' » STR* (D2)),2> 

140 VTAB 20i PRINT TR» : VTAB 22: PRINT '<» CHANGER DE DATE (2> CDNTINUER 
~> *I 

15fl CALL - 196t GET R»t IF ASC <R«> t 49 OR ASC <R*> 38 THEN 150 
160 IF R» = * 1 " THEN 188 
178 GOTO 488 
188 J* =* " 

198 VTAfl 18: HTAB 19: CALL - 198: PRINT J* ; : GET R* : POKE - 16363,8: IF 

ASC <R») « 127 AND J* ■ < > " THEN J» = "'! GOTO I '8 
286 IF J* = AMD R» ' '3" THEN 198 
218 IF R* i "0" OR R* i THEN 198 

228 IF J* = " THEN J* = J* * R*: GOTO 198 
238 IF UAL (J* ♦ R«> < 1 OR VAL <J» • W) 31 THEN 198 
248 PRINT R*:J* = J» ♦ R» 
258 M = H » 1 1 IF H * 13 THEN M * 1 

269 VTAB I8i HTAB 22 1 CALL - 198: PRINT MID* <AN*,M « 3 - 2,3'j: HTAB 22 

: GET R»: POKE - 16363,8 
278 R - ASC <R»)i IF R a 13 THEN 386 

288 IF R = 127 OR R » 8 THEN H - H - 2i IF H < 8 THEN H ■ 11 

398 aH°" 58 (SUM AU VERSO, 



31 



IREMPMN MiCHO 



DATEZ VOS PROGRAMMES (suite et fin) 



318 VTAB 10: HTAB 26i CALL - 198: PRINT A*|! GET R* : POKE - 16368,8 
3/6 IF A* ( i ■■ AND < ASC <M) = 8 OR ASC <R*> = 1 27 « THEN 366 
338 IF Ri < "8" OR W ) •?■ THEN 318 

348 PRINT R*:A* * A* * R*i IF LEN (A*) < 2 THEN 318 

358 VTA8 12: HTAB I; CALL - 198: INPUT "HEURE ARRONDIE : ';R*iH = UAL <R 

*>: IF H < 1 OR R > 24 THEN 35B 
368 POKE 49841 , UAL <A*> * 2 ♦ (M > 7) 

378 IF M < 8 THEN POKE 49848,H * 32 ♦ VAL ( J*> : GOTO 399 
388 POKE 49840 , <M - 8) * 32 ♦ VAL <J*> 
390 POKE 49843, Hi POKE 49842,0 

480 PRINT : VTAB 22: CALL - 19B: PRINT "<1> CHANGER DE PREFIX <2> APPLESO 

FT -) * j i GET Rl* 
418 IF Rl« - "2" THEN 498 

428 IF Rl* = "1 B THEN CALL - 199: VTAB 12: HTAB li INPUT "NOWEAU PREFIX 

i "|R*| IF M a " THEN 400 
438 FOR I a I TO LEN CR*):R = ASC ( MID* (R*,I,1)>: IF <R > 45 ANO R < 5 

8) OR (R ) 64 AND R < 90) THEN NEXT I: GOTO 450 
440 GOTO 428 
458 ONERR GOTO 488 

468 IF LEFT* (R*,l> < > V" THEN R* = V ♦ R* 
478 PRINT CHR* ( 4 ) "PREFI X'R* : GOTO 78 

488 POKE 216,0: IF PEEK <222) = 6 THEN VTAB 14: PRINT "PREFIX INCONNU'i 

GOTO 406 
490 TEXT : HOME 

ATTENTION 1 Co programme no (onctionne qu'on version ProDOS . 



ICette routine permet, dans un menu par exemple, d'afficher 
une ligne dont seules les MAJUSCULES sont en INVERSE. 



I'ossoyer. c'esl probablement I'adop- 
fer. Nous la devons a Yvan KOENIG, un 
expert (amateur) pour lequel te Ian- 
gage machine n'a pas plus do secrets 
que la mosaique. 



5 PRINT CHR* <4)"BLOAD IWWJ" 
18 TEXT : HOME 

20 A* = "Tout RffcstUs Sorties 

CHOI* < >' 
38 CALL 768, A* I HTAB 35 
40 POKE 49168, 0i GET X*: IF X* < 

"R- OR X* ) "T" THEN CALL ■ 

1052: GOTO 48 
50 PRINT X* 
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£*80 


031D- 


20 


ED 


FD 


JSR 


*FDED 


0320- 


ce 






I NY 




0321- 


C4 


68 




CPY 


S60 


0323- 


90 


E8 




BCC 


*030D 


8325- 


60 






RTS 
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UTILITAIRF 



Dosa.a 



ProDOS 



Generateur 
de programmes 



I vous dfoirez dcrire une petite routine, destinge 6 sai- 
sir x voleurs (numeriques ou alphanumeriques), puis 
6 les memoriser dans un ftchier, cr6e sur disquette, 
utilisez plutot ce modeste generateur de programmes ! 

II pr6sente Tavanlage d'Atre reutilisable 6 I'lnfim, pour 
d'autres applications. 

CREA7EFIC (c'est son nom de baptAme) se charge en effet 
d'ecrire autant de clone* que vous le desirex, et en quelques 
minutes. 

Apr&s le RUN habitue), r6pondez 
aux quelques questions qui vous 
seront po*6es, puis laissez votre Apple tourner. Un ftehier 
EXEC, intitule PROGRAMME J, sera automatiquement ins- 
talls sur votre disquette, puis charge en memoire, 6 lo place 
de CREATEFIC (qui sera ettoce... d'oii I'imperieuse n^cessite 
de le sauvegarder en priorite. avant la premiere utilisation). 

Faites ators un SAVE FIC (ou tout autre litre, choisi par 
vous), puis un RUN, Et c'est parti I 



FONC7IONNEMENT 





T REMPLIN MICRO 



GENERATEUR DE PROGRAMMES (suite) 



teeo text : print chr* rizi) chr* (21): hqhe 

lBie D* = CHR* <4):G* » CHR* <34> 
1028 DIM L*<25> 

1038 T* = " CREATION D'UN PROGRAMME DE SAISIE "I VTAB li HTAB 21 - LEN <T*) 
/ 2l PRINT T* 

1849 FOR I ■ 1 TO 10:TR* = TR» * ' *l NEXT I VTAB 2: PRINT TR» 

1858 VTAB 4: HTAB 1: CALL - 959: PRINT "DESI REZ-VOUS ENREGISTRER t'l VTAB 

4: HTAB 2i CALL • 198: PRINT "<1) DES CHIFFRE5 <2> DES LETTRES ? ' j t G 

ET R* 

1868 NA = ASC <R*> - 48: IF NA ( 1 OR NA > 2 THEN 1858 
1878 V* » "E" : IF NA = 2 THEN V* = "£*■ 
1888 INVERSE : PRINT R» : NORMAL 
1096 GOSUB 1338 

1188 VTAB 18: HTAB t: PRINT "VOTRE VARIABLE EST DONC "fl INVERSE l PRINT hi 
1 NORMAL 

Hie R^it GOSUB 1298: IF U = 79 THEN 1858 

1128 VTAB 12: HTAB 1: CALL - 95B: CALL - 198: INPUT "TITRE DE UOTRE FICHI 
ER 7 "jTI» 

1138 IF TI* = 'V THEN R = 2: GOSUB 1288: GOTO 1120 

1148 IF TI* = THEN 1858 

1158 Tl = LEN (TI«)l IF TI = 8 THEN 1128 

1168 FOR 1 - 1 TO TI)A ■ ASC < MID* CTI« , I , 1 > ) I IF <A < 65 OR A > 90> AND 

<A ( 40 OR A > 57) AND A < > ASC ('.') THEN TI* - GOTO 1138 

1178 NEXT 

1188 VTAB I2i HTAB 26i INVERSE i PRINT TI*i NORMAL iR - 1 i GOSUB 1288: IF U 
- 78 THEN 1128 

1198 VTAB 1 4 1 HTAB 1: CALL - 198: INPUT "NOMBRE D ' ENREGI STREMENTS ? " |NE* 

1308 IF NE* = "?" THEN R = 3i GOSUB 1288: GOTO 1198 

1218 IF NE* = ■•■ THEN 1128 

1228 NE = VAL <NE*>: IF NE < 1 THEN 1198 

1238 GOSUB 1338 

1248 VTAB 3l CALL - 998 t PRINT i PRINT "FICHIER "|l INVERSE i PRINT TI*)! 

NORMAL : PRINT ■ DIM "fl INVERSE : PRINT E*l NORMAL 
1250 PRINT s PRINT L '•nrtgi itr tmn t ZERO %*r* le oomWur* 
1268 R = It GOSUB 1288: IF U « 78 THEN 1198 
1278 GOTO 1428 

1298 VTAB IB: HTAB li CALL - 958: PRINT TR* 
1298 ON R GOTO 1380,1318,1328,1085 

1388 INVERSE l PRINT "0" [ : NORMAL l PRINT "Ul OU " | i INVERSE : PRINT "N"|| 

NORMAL i PRINT "ON EN CAS DE DESACCORD* : GOTO 1368 
1310 PRINT -AUTORISES: CAP I TALES, CHIFFRES ET POINT' 1 1 GOTO 1368 
1328 PRINT "ATTENTION 1 LA MEMO I RE A DES LIMITES' * : GOTO 1368 
1338 IF NE* = *' THEN NE* = "X" 
1340 E* ■ V* ♦ "(' ♦ NE* 
1358 E* » E* ♦ RETURN 

1368 CALL - 1*B: POKE - 16368,0: WAIT - 16384,128,127: POKE - 16368,0:10 
= PEEK < - 163B4): RETURN 

1370 : 



GUY-HACHETTE 



14 



1388 HEM ••«••#••##•••••••••••»• ••••• 

1398 REM • PROGRAMME COMPLET DE SA1SIE • 

1488 REM ■ ■ ■■ ■ ■ •■ ■ ■■ ■ WM IM MHIII i mil 

1418 : 

1428 L«<I) = MB TEXT : PRINT CHR*< 1 2) tCHR»<21 1 :H0ME" 
1438 L«<2) = "28 ONERR GOTO 238* 

1448 L«(3) = "38 DIM" * E* * • :D*=CHR»<4) iF*=' * W « TI* * G* ♦ ' :N=' ♦ NE* 

1458 L»<4) - "48 F0RI=1TQ1 8 :TR»=TR*»" * G* * ■ * ♦ G* ♦ ' tNEXT' 

1468 L»<5> = -58 T«-' + G» * 'SA1SIE DES VALEURS DE " ♦ G» * '*F»" 
1478 L*(6> = '68 HTAB 21 -< LEN(T*>/2) jPRINT T*:PRINT TR»:P0KE 34,3' 
1488 L*<7> = "78 1*8 1VTAB28 iPRlNT TR*:VTA822:PRINT • « G* * " ?=CORRECTI ON - 

•-TERMINE - ft=B DERNIERS" * G» * ":P0KE35,19' 
1498 L*(B> ■ "88 1=1*1 lVTAB5iHTABl iCALL-958: INVERSE iPRINT 1 : NORMAL" 
1588 L*<9> = "98 VTAB7:HTABI : INPUT • ♦ W * "--> " * CHR* <7) ♦ G» I "|C*l1 

FE«-' ♦ W » G* * "THEN 98" 
1518 L*<18» - ' 188 IF I>1 AND E*=CHR*<63>THEN 1=1-1 iVTAB5:HTABl iCALL-*58: 1NV 

ERSE : PR INT I [NORMAL : VTAB7 : KTA85 : PRINT E*< I > r G0T098 ' 
1528 L*<I1> = "118 IF E»-CHR*<42> THEN 1=1-1 :GOT0248" 
1538 L»(12> - '128 IF E»OCHR*( 38)THEN 158' 
1548 L»tJ3> « "138 HOME :R=I -B: I FR< ITHENR=1 ' 

1556 L*(14> - '148 V=4iFQRJ=RTQI -1 iVTABViHTABl l INVERSE : PR INTJ I iNORMAL tPRINT 

TAB<4>i' * V» * '<J>:V-V*2iNEXTiCALL-198iP0KE-14348,8iUAIT-li3B4,128:P0 

KE-16368,8: PRINT :HOMEiI-l-l ;G0T0B8" 
1548 IF NA ■ 1 THEN L*<15> * "158 ' * V* ♦ " <1 >=VAL ( E*> :E**' ♦ G* * G* • " : 

IF KN THEN 88": GOTO 1588 
1578 L*<15> - "158 E*< I >-E* iE*-" * M • G* * 'iIF I (N THEN 88' 
1588 L*<16) ■ '168 GOTO 248" 

1598 Lt<17) - "178 PRINT Mi" ♦ G* * "OPEN " « TI* * M « "sPRINT Mi' ♦ G* 

* "URITE " • TI* + 6* + "jPRINT 1 jF0RE*1T0I iPRINT ' ♦ V* • "<E>:NEXT;PR 

INT M|" • B* « "CLOSE " • G* 
1<J88 L»<18> - '169 TEXT i HOME i PRINT 0*|' * G« • 'CATALOG" * G* 
1618 L*(19> - '198 GET R* t PR INT : HOME: PRINT ' ♦ G* ♦ 'RELECTURE DU FICH1ER " * 

G* « "|F* ;PRINT TR»:P0KE34,3iPRINTiLIST28e:GOT0 218' 
U28 L*(28> ■ "288 PRINT Mi" * G* * 'OPEN " ♦ TI* ♦ G* ♦ "i PRINT D*i* * G* 

♦ 'READ " * TI* * M + "llNPUT 1 iFORE=lTOI ! INPUT " * V* * "(E) iNEXTiPRI 
NT Mi' * G* ♦ "CLOSE ' ♦ G* 

1638 L*<21) = "218 PRINTiPRINT TR* ;PRINT" ♦ M » "ET MAINTENANT , A VOUS DE J 

OUERf ♦ G* 

1648 L*<22> - "228 CALL- 1 98 :P0KE-1 6368 ,B :UAIT-1 6384 , 1 28iP0KE-l 636B ,8 lEND" 
1658 L*<23> = '238 I-I -1 1 1 FPEEK<222> 0255THEN VTAB1 B:PRINT" * 0% * "PRQBLEME 

JMPREVU!" ♦ G* * " lEND" 
1668 L*(24> = '248 VTA818:CALL-868iCALL-198iPRINT" 4 G* * M> ENREGISTRER - 

2) DERNIER SAISI " ♦ G* ♦ " | :GETR* iPRINTR* ; IFR*»CHR*<49)THEN 178" 
1678 L*<23> - "258 I-J+l :E*=CHR*<63) iGOT0188" 
1688 VTAB 17: PRINT 

1698 PRINT D*'OPEN PROGRAMME 1 * : POKE 33,33: PRINT M'URITE PRGGRAMME1 ' : FOR 

I ■ 1 TO 25: PRINT L*U>: NEXT l PRINT M'CLOSE': POKE 33,48 
1708 HOME : PRINT : PRINT CHR* <4)'EXEC PROGRAMME 1 " 
1718 DEL 1888,1718 

-■i < .1 . ■ >■. Computer eel embryon de KftftteMH dl pTPfn wwm » ) 
de rruniere i ce qu'il prevoie un menu, ainsi que la lecture 
du fichier cree. 



is 



I 



TKMPLIN MICRO 



Economise?, les (pr$cieux) secteurs de vos 
disquettes avec : 

ECRANS CONDENSES 



UT1LITAIKE 



DOS 



ProDOS 



A 



58 
68 



7B 



128 
139 
148 
150 
168 

178 
188 

198 
288 
218 



22B 



238 
248 



QUOI bon memociser. sur une disquelte. les 64 octets inutiles d'un ecran qui, dans la reali- 
te. n'en exige que 960 (24 fois 40) ? Le mini-programme ci-dessous n'est qu'une demonstra- 
tion, desllnee 6 vous monlrer comment fonctlonne to routine ECRANLMde la page sutvanto. 

II reste que ceite 
facon de foire pre- 
sent© non soule- 
ment I'ovantage 
d'economiser un 
secteur por ecran' 
mais celul de ne 
plus heurter la sus- 
ceptibility de Y Ap- 
ple... en I'obli- 
geant 6, ingurglter 
64 octets d'infor- 
motions incompoti- 
blos ovec sa fonc- 
tion du moment. 



IB TEXT i HOME i PRINT CHR* <12>[ CHR* (21) 
20 PRINT CHR* (4)"BL0A0 ECRAN LM' 

38 PRINT "ECONDMISONS LES SECTEURS DE NOS DISOUET-TES EN 
NE MEMORISANT QUE LA PART IE TEXTEOE NOS ECRANS <EN 4( 
C0L0NNES) . 

COMMENT ? U01CI UNE SOLUTIONi 



48 VTA8 22j PRINT * APPUYEZ SUR UNE TOUCHE SUP 



VTAB 
IF 



GOSUB 248 
FOR I « 1 TO 23! 
<I t 64) | | NEXT 
64 > i NEXT 
POKE 1911 ,215i NEXT 
FOR 1 = 2988 TO 283?! 
'/TAB 1 i HTAB 1 I GOSUB 
CALL 768 

TO I4i '-TAB 



FOR 

< ) 



J ■ 1 TO 
23 THEN 



39i PRINT CHR* 
PRINT CHR* <I * 



98 
188 

118 FOR I - 



POKE 
249 



1,216) NEXT 



I i HTAB 5i PRINT ■ 
■l NEXT 

VTAB 19i HTAB 7i PRINT 'L 'ECRAN PLEIN 0E LETTRES EST" 
VTAB Hi HTAB 7: PRINT "ACTUELLEMENT MEMORISE A UNE ' 
VTAB 12l HTAB 7i PRINT "ADRESSE CONNUEl »28B8 ET ON • 
VTAB 13i HTAB 7i PRINT "PEUT L'ECRIRE SUR DISQUETTE." 
PRINT '"! VTA8 14i HTAB 7: PRINT CHR* C4)"8SAVE ECRD 
EM0,A*28B8,L»3C9" 
GOSUB 24fl 

HOME i VTAB 12l PRINT ■ APPUYER SUR UNE TOUCHE POUR L 
E REV0IR- : GOSUB 24B 
CALL 816: GOSUB 248 
HOME 

VTAB 12! PRINT 'CELA EST POSSIBLE GRACE A UN PETIT PP. 
0- GRAMME EN ASSEMBLEUR < 76 OCTETS) , GUI SECHARGE DES 
TRANSFERTS." 

PRINT I PRINT "IL FAUT EVJ DEMMENT LE CHARGER EN MEMO I 
REfA*39B,L*4C) , PUIS PREVOIR l - CALL 7 

68 «*r* <28B8 - BSAVE ECRAN, A*2888 ,L 

*3CB - BLOAD ECRAN pour If rtlin 

- CALL816 pour l'a«fich#r." 
GOSUB 248: HOME i END 

CALL - 19Bi POKE - 16368, 8i UAIT - 1 6384 , 1 28, 1 27 1 
POKE - 16368,81 RETURN 



En eHet. il ne faut 
pas oublier que les 
64 octets en ques- 
tion ropro-jonfont 

notamment les N 
fols 8 octets de 
MEV reserves 6 
choque carte inter- 
face de perlphe- 
rique. 



■ On 4<onomite en 
lout cat I todmur ct 
touvanl un 4cran tetta 
ovtrc 11016 (qui eico- 
mot* /•» B dornion 
octets. InutiUtis pom 
I'aWcbago) 



GUV-HACMCTTE 



ECRANLM 



Co programme lit les 24 lignes de Tecron en 40 colonnes, 
et les recopie 6 portir de I'adresse S2G00 (qui peut 6vi- 
^^^^^^^^"^"^^"^ dcmmcnt otre modified. On sauve l ocrno pur CALL 768 4 
puis BSAVE ECRDEMO. AS2000 L$3C0. 

Bien entendu, il devra Stre recharge 6 la mdme adresse,.. 6 mains de modifier la 
routine cr-dessous. Un simple BLOAD ECRDEMO provoquera I'effet souhaild, puis 
on CALL 8)6 entraTnera I'affichage. 



On utilise lei memoir*! 06 el 07 do lo 
iefo commo boiie a leifres, poor y itockor 
I'odmte a toqu^tfe *o ftre (wrier* f*e 



— $25 ■ Cv petition verlicofa du cur w?ur 

— Cakule lo*«« ar lo I'gno coutonfe 

— Debui de boutf e 

— En $28 0i $29 M irouvo l'odre*w dt lo tigne 

— fieecrilur* 6 I adreue So — 7 4 Y 

— Flos un dans to boude 

J _ Hon ? olort, un out™ logr I 



v JWB" 


M ▼ 






LL»m 








q. e: 


W / 




OTA 

STA 


^ /*L *> 




1> T ft .-1 - 


AA 

H7 






i r>^ 


t *y 












b r« 




— 




a© 






CTA 


i L~1 l" 




a of* -\ _ 


n c 

95 


— i M 

^5 






925 




oou w 


oik 


L 1 


P tl 


T CD 


x c fr r* 1 




o n c 








LDY 


i 4 a 




ft o i i _ 
vol 1 


C 1 

c 1 






LDA 


C *Z8 * 


i» 


Got 0_ 


y i 






Sir 




, Y 


JX D — 


Lo 






i r^Y 






vOl D 


UV 


oc 




j~ O v" 








£'0 


F7 






S031 1 




O Jin 


Hj 


U© 




LUm 






Vol L* 


1 fc* 






'- i_ 






on n_ 
p Ji U" 








hUL 






rt "3 1 c — 

u JJ r 




i j . 

w e 




CTA 










W ^ 




LLJR 






U W ^ w 


o * 


a r\ 

V V 






C « Q n 






or? 


W ^ 




b 1 R 








c < 

t o 


n o 




I Kir^ 








H3 


I? y 




I r\.r\ 
UUm 






U O £ D 


CO 


J o 




Oh ID 


t * I a 


— i 


832D- 


D6 


DB 




BNE 


S030A 


] 


032F- 


6lS 






PTS 






8330- 


A9 


e« 




LDA 


£*06 




8332- 


8D 


1 2 


03 


STA 


• 0312 




0335- 


A9 


28 




LDA 


£428 




9337- 


80 


1 4 


03 


STA 


*031 4 




033ft- 


28 




03 


JSR 


S0360 




833D- 


rt9 


28 




LDA 


€*28 




033F- 


80 


I 2 


83 


STA 


*83l 2 




0342- 


A? 


0* 




LDA 


£*06 




0344- 


3D 


14 


03 


STA 


*831 4 




0347- 


A? 


oe 




LDA 


£480 




6349- 


85 


25 




BTA 


425 




034B- 


60 






RTS 







)» longi/vur d« lo Itgne qui vienl d f 6ir« luc* 



En S6 »t 9loch6 le nombrd de lignei 
— Esi on 6 24 ? 



ffeaffic^oge. Celle paflle du programme modi* 
fi* ■■■ odrrtitv poHqu'il lout lirt a portir d« 

, el reecrire 6 ponlr de «(W 
Enwite f on remoi tot choio* en place. 



Pour rentrer cette routine, lapez CALL* 151 et RETURN, puis 

' MO A9 30 65 07 A9 00 aSOo d5 08 ft5 25 70 CI F8 AO 00 SI 28 91 06 
Co CO M 00 F7 AS 06 I B 69 28 65 06 A5 07 69 00 W 07 £6 08 A5 08 CT 
18 DO DB 60 A9 06 BD 12 03 A9MAD 14 03 20 00 03 A9 28 AO 12 03 A9 
06 80 14 03 A9 00 05 25 tSAVI ECRANLM, AttOf. U4C. 



VERIFICATION (mode direct) 

FOR I = 768 IO 843 : E = E + PEEK (I) : 
NEXT : PRINT E 



W rosullal doiT olrc 6955. 
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|EU DIDACTIQUE 



DOS 3.3 



Pro DOS 





BOTRE entourage (vos eleves, peut- 
dtre ?) connaTt-U sa geographic ? Rien 
ne vous interdif de le soumettre a un 
petit test, rapidement mis au point sur 
votre ordinoteur personnel. 



18 
28 



36 
48 
58 
48 
78 
88 
98 
168 
119 

128 
138 
148 
138 
148 
178 
188 
198 

288 

218 

228 
238 

248 
258 
268 

276 



TEXT : PRINT CHR« <12>i CHR* <21>; HOME 
INVERSE 1 FOR I ■ 18 TO 14 1 HTAB 19: VTAB II PRINT 
• "j: IF I - 18 OR I * 14 THEN FOR J = 11 TO 29: 
PRINT ■ '|: NEXT 

HTAB 38: PRINT - ' : NEXT : NORMAL 
W- " QUEST ' lA* •'EST" 
GOTO 198 



t:it: REM W 
Hill REM »» 
iiiii REM Ml 



SOUS-PROr.PAMME? 



FOR B2 - 1 TO FiX - PEEK (49288) i IF PEEK <49249 
) ) 128 AND F ( > 5 THEN FIN ■ ] 
NEXT : RETURN 

FOR 1 ■ I TO 3888: NEXT i RETURN 

I 

lllll REM •••• • 

im: REM •* AFFICHA6E DU TITRE •* 
1 1 : j : REM ■■-■-•*••*•*»•»••«*•«*••••••• 

'/TAB 12: HTAB 12: PRINT A« ♦ " ' j i INVERSE : PRINT 
B* 

F * 38: GOSUB 116 
•./TAB 12: HTAB 12: PRINT B* ; : NORMAL : PRINT ■ ' ♦ 
A*: IF FIN = 1 THEN 236 
Q0SU8 118iA ■ A + 1 1 IF A < 8 THEN 198 
A = 8; VTAB 16: PRINT "Uoulez-wous Jouer auec rooi : 
Oui - Non ?* 

VTAB 14: HTAB 48 i CALL - 198: GET R* 
IF ASC (R») = 79 THEN 338 

IF ASC <R*> = 78 THEN PRINT R»: PRINT • Dormage 
1 c* sera pour unf autrt fois' ': END 
PRINT ": VTAB IB: PRINT ■ OIWREZ MIEUX LES YEUX S 
'IL VOUS PLAIT 1 ■ : VTAB 16: HTAB 29: INVERSE : PRINT 
"O'l I HTAB 35: PRINT "N" : NORMAL : GOTO 248 

: 



Cadre mude inverse 



doll la (ill IK lid 



pend de 1q variable F. 



4» Boucle d'oiiento. 



Une man i ere plot 



ou 
(to 
da 



* mom* elegan 
depend de* gout 
deploeer un mol. 
SI FIN= 1 (Pom me ouverte 
enloncee : hgne 110). on 
potto Immediatemenf 6 lo 
tulle. 



^ Rappel a I'ofdre. . »on» 
amentie 



GUV-HACMETIE 



3fl 



C At L-9$fl vide i*4crcm, 
b porflr el ou-d«*&ous ▼ 

du curMur. 



Un bruit occornpogr># 
t u'fichc>0« do cheque™ 

CAU»tO fait romontor lo 
lotallf* dm Tdcran dune 
I.gno 



MOlango d« ti ols vtll^<> ^ 
*n ufiHion? to tonction™ 

RND del-Apple 



Si » = « c*«t quo la * 
touch© D«l u el£ ©nlorv^ 
(e* r at on rovient en 
arricre. 



On ttocko dona lo Vd- a 
riobl* RXS le* r**pon**»^ 

qufttfions. 



SPEED -255 vito.*tto 
mot imum d afflthogo. 



2?e 

38B 
318 

338 
348 



REM 
REM 
REM 



L# PABTIE 



1 



PRINT : '/TAB 16: CALL - 959 
T* a "Le progruwne »a successt»ement uous pro-poser 

18 fols trois noms de vllles... Cesera i vous de d 

♦signer U villi qui estappro* • rna 1 1 uement situte en 

trt les deux autre*, tt '-■ positions de celles-ci. 



358 

368 

379 
1S8 



F ■ 



PRINT M1M '.T«,I ,P 



F = 
T 



119! CALL - 912} 
i'ers le haut> 



NEX 



3l FOR I ■ 1 TO LEN CM) ! 
GOSUB 118: NEXT 1 1 PRINT 
28: FOR I ■ 1 TO 9: GOSUB 
REM SCROLL <OerouIenient 

POKE 34, 6 I HOME 
JEU ■ JEU ♦ 1: VTAB 8: INVERSE : PRINT "QUESTION "J 
EU ; l NORMAL i PRINT TAB' I5);PTj" POINT" ; : IF PT > 
1 THEN PRINT "S" | 

TABf 28>'ERREUR = Del": PRINT 
I TO 3: READ V*<P: NEXT 

< RND <!) • 3>iV(2> ■ I * INT ( RN 
V(P - V<2) THEN 416 
- V(2>l FOR 1 ■ 1 TO 3tX*(I> * y»(U 




• INT 
* 3>i IF 
6 - V(P 
NEXT 



1 TO 1 



64) |t N 
PP1 



469 
478 



499 

589 
519 
529 

538 
549 

558 
569 
578 

588 
5°6 



1 TO 3: INVERSE 1 PRINT CUR* 
PRINT ' "X»<Pl PRINT : NEXT 

VTAB 28 l CALL - '58 l FOR I « 
*»: NEXT : PRINT 
'TAPE 2 LE5 LETTRES-CLES DANS L OPDRE 
VOUS ESTIMEZ ETRE LE BON* 
X = liRX* ■ 
VTAB I7i HTAB 1: INVERSE : PRINT 
AL : CALL - I'B: PRINT " "RX»;: GET R* i POKE - 16 
?68.8:R - ASC <R«> - 64 



OUE 



' REPDNSE :* ; : NORM 



1 :RX« = "" : GOTO 478 
2:RX« = LEFT* <RX».l 



1 TO X - It IF MID* <RX«,I,P = R* THEN 4 



4 R t 2: HTAB 
PRINT X»<R> 
It GOTO 478 



2: CALL - 868 



IF R - 63 AND X - 2 THEN K 
IF R ■ 63 AND X a 3 THEN X 
>: GOTO 478 

IF R \ 1 OR R > 3 THEN 478 
IF X - 1 THEN 548 
FOP I 
76 

NEXT I : PRINT R* 
RX* a RX* ♦ R»: VTAB B 
: HTAB - 9 * X • 12: 
IF X ( 3 THEN X » X ♦ 
VTAB 1 7 > HTAB 14 

FOR I = 1 TO 3: !F V»f P * X»( ASC < Ml W <RX*,I,1 
)) - 64' THEN NEXT : GOTO 618 
PRINT "REPONSE INEXACTE* I GOSUB 136 
SPEED= 49: FOR 1 = I TO 3: VTAB 8 ♦ I » 2: HTAB 2: 
CALL - 668: HTAB - 9 * V(P * 12: PRINT X»tt>l N 

/luHff ou veno) 



TREMPUN MICRO 



OUEST-EST (SUITE el FIN) 



618 

a?8 
639 



658 

676 
686 

698 



716 

728 
"'3(1 



759 



SPEEO* 255: GOSUB 138: SOTO 629 

SPEED- 66l PRINT "REPONSE EXACTEi * 1 POINT'-sPT * 
PT i li SPEED= 255 * GOSUB 758 
IF JEU < 18 THEN HOME : GOTO 388 

HOME i PRINT : PRINT j INVERSE : PRINT PT" POINT" 1 
I IF PT > 1 THEN PRINT "S"[ 

NORMAL : PRINT t PRINT ! PRINT i IF PT > 8 THEN P 
PINT "TRES BON SCORE" : GOTO 786 

IF PT > 5 THEN PRINT "RESULTAT HONORABLE": GOTO 7 



IF PT 
IF PT 
PRINT 
B 136 
HO"F ; 



» 3 THEN 
^ I THEN 
■OUILLE' 

CLEAR : 



PRINT "PEUT MIEUX FA I RE ' i GOTO 768 
PRINT "DOIT MIEUX FAIRE's GOTO 788 
UN URAI DESASTRE' A REFA I RE ! " : GOSU 



JE RECOMMENCE 
GET R* 



<2> C E 



GOTO 388 
VTAB 22l HTAB 1: PRINT "<1> 
ST TERMING ";i CALL - 19Bi 
IF R» - "I" THEN 698 
TEXT i HOME : END 

DATA LE MANS,0PLEANS,M0NTARGIS,PERIGUEUX,8RIUE,AUR 
ll.LAC,CAEN,LISIEUX l UERr40N,BOURGES,NEVERS 1 AUTUN ( CHAT 

ELLERAULT.CHATEAUROUX, VERNON 

DATA DINAN.FOUGERES , ALENCON , ANGERS .TOURS ,BLOI S , DAX 
^UCH.CASTRES.MONTLUCON.yiCHY.ROANNE.CHAUMONT.EPINA 

L.COLMAR.AUXERPE.VESOUL.BELFORT 

FOR S * 768 TO 796i POKE S, UAL < MID* <"68173648! 
02134266894198887248088282266246166884076868863896" 

,'S - 747) • 3,3))! NEXT Si FOR U ■ 18 TO 48 STEP 3 

i POKE 6, Us POKE 7,15s CALL 760s NEXT U 

RETURN 



Pour loa commontoires, 
don no i llbro cours 6 
voire inspiration pv- 
■onnollo, «£lrement 

moilioore. . . 



♦ CLEAR parmvi d» •■• 
mellre louies les varia- 
ble! 6 ioro ol «vito la com- 
mands RESTORE 



. Cesl une utilisation du 
▼ "•an" de noire page 51 . 
Normoleroenl, II osl inu- 
•II* de In relancer 6 cha- 
rfum loll, mat* cela vou> 
bien une boucle de 
lamp! I 




Offrez-vous les disquettes 
de programmes de 

TREMPLIN MICRO 



Au choix : DOS 3.3 ou ProDOS. 

(ProDOS ne fonctionne qu'apres avoir 
lance* le systeme avec une disquetie 
MASTER). 



Utilisez le bulletin de commande de la 
pa^e 62... ou recopiez-le. 



GUY-HACHETTE 



TREMPLIN MICRO 



FICHE 3 



CARTE LANGAGE 

APPLE Urol //r(DOSX3) 

Av#c ProDOS* on no pout utitlior quo MEVJ 



TRANSFERT ET RECUPERATION 
DE DEUX ECRANS TEXTE 



lo routine n°I tronsffero un *cron de 1024 octet* en MEV t Bloc I. b partir de lodresse DGO0 



suftlt de toper CALL 768). La r&cup^ratton est obtenue par un CALL 806 Lo routine n°2 utilise lo 
meme adre&se, mats vers le Bloc 2 (transfert : CALL 841 ; retour : CALL 879). 

Utiliaoble 6 portlr d'un programme en Bosic, ou en mode direct. Un RESET est sons ettel sur les 
6cron$ dint! momort^s. 

Restriction : il ne foul evidemmenl po* avoir chargd le BASIC INTEGER sur to carte langage. 





ME VI 










MFV2 








AO 


89 


CO 


i nA 


^^U<?T 




AD 


81 CO 


1 hA 


Cfflfl 1 




: AO 


89 


l-U 


i n A 
IDA 




/in iT 


AD 


8) CO 


i r\ a 
LDA 






A9 


00 




i n a 




U Jar 


A9 


00 


LDA 






: B5 


3C 




CT A 

b 1 A 


cor 




85 


3C 


r t a 


S3! 




A9 


04 




1 OA 






A9 


04 


LDA 


L3>U 




85 


3D 




> 1 M 




U J jj 


85 


3D 


CT A 
j 1 A 






A9 


DO 




1 HA 




w o J » 


A9 


DO 


1 OA 




UO 1 u 


: B5 


3E 




a i r\ 


OJC 


U JjT 


85 


3E 


j f A 




0117 


; A9 


07 




1 DA 






A9 


07 


LDA 


Liu / 




: B5 


3F 




IT A 


cop 




05 


3F 


IT A 




V** ' o 


A9 


00 








U JDr 


A9 


00 


LDA 




Oil El 


as 


42 




CT A 


£49 


n?/ii 

U JO 1 


85 


42 


5 1 A 




311 A 


A9 


DO 




i nA 






A9 


DO 


i nA 

LUM 




Q31C 


: 85 


43 




STA 


543 


0365 


85 


43 


STA 


S43 


031 E 


38 






SEC 




0367 


38 




SEC 




031F 


20 


11 


C3 


JSR 


SC311 


0368 


20 


11 C3 


JSR 


SC31 1 


0322 


: AO 


8A 


CO 


LDA 


SC08A 


036B 


AO 


82 CO 


LDA 


SC0Q2 


0225 


; 60 






RTS 




036E 


60 




RTS 




0326 


: AD 


88 


CO 


LDA 


SCO 88 


036F 


AD 


80 CO 


LDA 


SC080 


0329 


; A9 


00 




LDA 


£SG0 


0372 


A9 


00 


LDA 


£S00 


032B 


: 85 


3C 




STA 


$3C 


0374 


85 


3C 


STA 


S3C 


032D 


A9 


DO 




LDA 


£SDG 


0376 


A9 


DO 


IDA 


f.$rw 


032F 


65 


3D 




STA 


S3D 


0378 


85 


3D 


STA 


S3D 


0331 


A9 


DO 




LDA 


£SD0 


037A 


A9 


DO 


LDA 


£$DO 


0333 


85 


3E 




STA 


S3E 


037C 


85 


3E 


STA 


$3E 


0335 


A9 


D3 




LDA 


f.SD3 


037E 


A9 


D3 


LDA 


£SD3 


0337 


85 


3F 




STA 


$3F 


0380 


85 


3F 


STA 


S3F 


0339 


A9 


00 




IDA 


£S00 


0382 


A9 


00 


LDA 


£S00 


033B 


85 


42 




STA 


$42 


0384 : 


85 


42 


STA 


S42 


033D 


A9 


04 




LDA 


ES04 


0386 . 


A9 


04 


LDA 


£S04 


033F 


85 


43 




STA 


$43 


0388 


85 


43 


STA 


$43 


0341 


18 






CLC 




038A . 


18 


• 


CLC 




0342 


20 


11 


C3 


JSR 


SC311 


038B 


20 


11 C3 


JSR 


$C3n 


0345 


: AD 


BA 


CO 


LDA 


SCO 8 A 


038E : 


AD 


82 CO 


LDA 


SCGB2 


0348 


60 






RTS 




0391 


60 




RTS 





ECR ITUttt SUK PISQUETTE : 

BSAVE ME VI . A53O0, LS49 BSAVE MEV2, A$349. LS49 

Si vous reuni5sei les deux rouitnes : BSAVE MEVI .2. AS300. LS92 

UTILISATION : BLOAD MEVI . ou BLOAD MEV2 (dans un programme : PRINT CHRS(4) ; "BLOAD MEVI"). 



TRENPLIN MICRO 



FICHE 3 



CARTE LANGAGE 



TRANSFERT D'ECRANS TEXTE 

A**< PmOOS. en ne pout ulllits' qu» ME V? 



Il n'est evidemment pas neeessaire d'utilisor les deux routines (exposees ou recto de cetle 
liche) pour transferer plusleurs ecrons sur la carte langage, mais quelques pokes doiveni 
alors preceder chaque operation. 

Lo programme on BASIC ressemblera a ceci (nous ovons escamote ies numeros des lignes) . 



ECRAN I VERSMEV1 (SD000-D3D0) 

POKE 769,137 : POKE 772,137 : POKE 
803, 138 : POKE 795,208 ! CALL 768 

ME VI VERS ECRAN ($O40O-Q7D0) 

POKE 807,136 : POKE 838,138 : POKE 
814.208 : POKE 822.21 1 : CALL 806 



ECRAN 3 VERS MEV1 



POKE 769,137 : POKE 772.137 
803. 138 : POKE 795,21 2 : CALL 768 



MEV1 VERS ECRAN 



(SD40Q-D7DG) 
POKE 



POKE 807.136 
814.212 : POKE 822,215 



: 50 -100 -07 DO 

POKE 838,138 : POKE 
CALL 806 



ECRAN 2 VERS MEV2 (SD0OO-D3D0) 

POKE 769.129 : POKE 772,129 : POKE 
803.130 : POKE 795,208 ! CALL 768 



MFV2 VERS ECRAN 



;sa 400-07 do) 



POKE 807,128 : POKE 838,130 . POKE 814, 
208 : POKE 822,21 1 : CALL 806 



I CRAN 4 VERS MEV2 (SD400 D/D0 

PQKE 769,129 : POKE 772,129 : POKE 
803, 130 : POKE 795,212 : CALL 768 



MEV2 V ERS ECRAN 
POKE 



(S04Q0-07D0) 
838.130 I POKE 



POKE 807.128 
614,212 : POKE 822,215 : CALL 806 



Quont 6 votre routine unique, la vaici, 6 taper apres le CALL-151 habHuel (.'J - RETURN) 

1 300 : AD 89 CO AD 89 CO A9 00 85 3C A9 04 85 3D A9 DO B5 3E A9 07 85 3F A9 
GO 85 42 A9 DO 85 43 38 20 11 C3 AD 8A CO 60 AD 88 CO A9 00 85 3C A9 DO 85 
3D A9 DO 85 3E A9 D3 85 3F A9 00 85 42 A9 04 65 43 1820 11 C3 AD 8A CO 60 ffl 
BSAVE MEV. AS300. LS49 B 

Telle qu elle se presente au depart, et apres un 8LOAO MEV. cette routine ne Iransfere 
qu'un ecran, vers MEV1 . Pour les ecrans 2. 3 et 4. les lignes de POKES sont obligaloires. 
Note ^ que vous moditiez alors voire programme, d'ou la necessite d'utiliser TOUS LES 
POKES, y compris pour I'ecran numero 1 . 



RAPPEL DES INSTRUCTIONS UTILISEES ICI 



HEX. 


DEC. 


OBJET 


INSTRUCTIONS 


CGB9 


49289 


ECRITURE BLOC 1 


LOA SC089 LDA SC0B9 


coea 


49268 


LECTURE BLOC 1 


LDA SCOBS 


CUBA 


49290 


EfCOKNKH! IN UCTWt-PltOlteK EN KBITUBt 


LDA SCQ8A 


C081 


49201 


ECPITURE BLOC 2 


LDA SC081 LDA SCOB1 


COBO 


49280 


LECTURE BLOC 2 


LDA SCO BO 


CO 82 


49282 


MEME EFFET QUE COBA 


LDA SCGBA 



OUT HACHITft - tdlMHlN MICRO 



ProDOS et la carte langage 

ProDOS vo se loger sur la carle langage. et il n'esl done pas possible d'utiliser la MEV1 de 
celle-ci (notre Fiche n°3). le programme DEMO ci-apres nous montre comment transferer 4 
ecrons on MEV2 (avec ProDOS ou DOS 3.3 d'ailleurs). Son apparent© complexity est due au 
simple fait qu'il est destine a une demonstration... sur ecran. Ne vous affolez pas I 



5 

10 
20 
30 
40 
45 
46 
47 
48 ; 
50 
60 
70 
80 
90 
100 
110 
115 
116 
117 
120 

130 
140 
ISO 
160 
170 
180 
185 
190 
195 
210 
220 



225 



230 
235 
240 
245 
250 
255 



PRINT CHR* (4)"BLDADMEV2" {C'a*l lo petite routine MEY, de lo fiche ct-conire|. 

TEXT : PRINT CHR* (12)j CHR* (21)1 HOME 
PRINT "TRANSFERT DE 4 ECRAN5 TEXTE EN DO0O-D7D0'; 

T» ■ "i FOR 1 " 1 TO IOiT* » T» + " "i NEXT i PRINT T« 

VTAB 10l LIST 50l LIST 210 

I 

REM ECRAN 1 EN *O000-D3D0 (NEV1) - ECRAN 2 
REM ECRAN 3 EN 4D40Q-D7D0 (NEVl) - ECRAN 4 



EN ♦D0O0-D3O0 
EN S0400-07DO 



<MEV2) 
<MEV2> 



GOSUB 
60SUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 



21 i 
220: 
210: 
220 i 
210: 
220 



POKE 
VTAB 
POKE 
VTAB 
POKE 
VTAB 



795,208: 
10: LIST 

795,2121 
10: LIST 
795,216: 
10: LIST 



GOSUB 210: POKE 795,220 



CALL 768: REM TRANSFERT ECRAN 1 
70: LIST 210 

CALL 769: REM TRANSFERT ECRAN 2 
90: LIST 210 

CALL 768: REM TRANSFERT ECRAN 3 
110: LIST 210 

CALL 76B: REM TRANSFERT ECRAN 4 



Dans un 
programm* 
tout ce 
blobloblo 
e*l Inutile. 



REM RAPPEL DEB 4 ECRANS A L'AORESSE *0400-07D0 

! 

GOSUB 220: VTAB 12: PRINT "RECUPERATION DES ECRANS 1 2 3 ET 4 



235 t GOSUB 225 
RETOUR ECRAN 1 
240: GOSUB 225 
RETOUR ECRAN 2 
245: GOSUB 225 
RETOUR ECRAN 3 
250: GOSUB 225 
RETOUR ECRAN 4 



G0SU8 220: LIST 140: LIST 230: LIST 
GOSUB 230: GOSUB 235: CALL 806: REM 
GOSUB 220: LIST 160: LIST 230: LIST 
GOSUB 230: GOSUB 240: CALL 606: REM 
GOSUB 220: LIST 160: LIST 230: LIST 
GOSUB 230: GOSUB 245 i CALL 806: REM 
GOSUB 220: LIST 190: LIST 230: LIST 
GOSUB 230: GOSUB 250: CALL B06: REM 
GOSUB 220: END 

POKE 769,129: POKE 772,129: POKE 803,130: GOSUB 255 i 

CALL - 198: VTA8 22: PRINT "APPUYEZ SUR UNE TOUCHE 
: POKE - 16368,0 

- 95B: RETURN 

CALL - 198: VTAB 22 
EVOIR" : NORMAL : POKE 
68,0: VTAB 3: RETURN 

POKE 807,128: POKE 838,130: RETURN 

POKE 814,208: POKE 622,211: RETURN 

POKE 814,212: POKE 822,215: RETURN 

POKE 814,216: POKE 822,219: RETURN 

POKE 814,2201 POKE 822,223: RETURN 
X ■ X ♦ 1: VTAB 20: KTA8 33: INVERSE 



Meine leniaiqiie 
que ci-dessus. 
Une boucle 
bien organises 
(era voire 
bonheur I 



RETURN 
POUR C0NT INUER' 



UWIT - 16364,128,127: POKE - 16368,0: VTA8 3: CALL 



INVERSE : PRINT 
- 16368,0: WAIT 



'PRESSEZ UNE 
- 16384,126 



TOUCHE POUR LE R 
127: POKE - 163 



Un detail : la disquo virtual /RAM vou% 
pertnet. sous ProDOS. de m6morlser... 
puli do recuporor Instonlonemenl vo» 
ecrans.., 

PRINT "ECRAN "X: NORMAL : RETURN 



43 



TBEMPUN MICRO 



ProDOS et VOUS 



p 



ETIT b petit, le systAme Sexploitation 
ProDOS remplacera le bon vieux DOS 
3.3, orchi connu et non molns tolerant, 
mois mains 6volu6 que son cadet* 

Pulsque vous avez le privilege de poss6der 
un Apple, apprenez done tx uttliser le petit 
nouveau. Pro comme prafessiannel et DOS 
comme.-- son ancetre* 




RA\i Premier avonlage de ProDOS — 
Important, 6 mes yeux du rnoins — 
I'emploi de la mimoire ouxlllaire de la corto BO 
colonnes 6tendue, sous forme dun disque- 
m*moire de 61 K. Comment y acc^der ? par la 
command* /RAM, simplement... 
Ainsi. vous pouvei stocker un 4cran sur co troi* 
slime drive en topanl BSAVE/RAM/ECRAN, 
A$iOO. LS3D0 puis le n&cuperer par BLOAD 
/RAM/ECRAN. Ca ne marche pas ? (NO BUFFERS 
AVAILABLE) Normal Faites pr6c6der le BLOAD 
por POKf 48984,0... et vous verrei bel et bien 
voire ocran Detail qui a son importance. /RAM 
est accessible 6 tout moment, y tomprls 
lorsquon se trouve dons un sous-volume (ou 
repertoire! de type DIR. Pratique, nan ? 

CATALOG lo wmmande CATALOG 
ne prisente d'int^r&t que 
si Ton etl en 80 colonnes. Slnon. lui preferer 
CAT. surtout si I'on est paresseux, CAT ou CATA- 
LOG pr6sonte le catalogue de la disquette dont 
ProDOS a enregislr* le PREFIX. Si la disquette a 
6t6 chang^e au profit dune outre, le syst&me vo 
lo rechercher en vain... et il y aura un message 
derreur (PATH NOT FOUND). Por contre CAT.Dl 
ou CAT,DJ ( de mfime que CAT/RAM. comblent 
ProDOS de jole {mals il n'oublie pas I'ancien 
PREFIX pour autant). 

Comment ocedder directement, sans changer de 
PREFIX, au sous-catalogue d'une disquette de 
prefixe TM2 ? Pas compliqu* (si )es titres sont 



courts 1) : CAT /TM2 /TOTO. Note* que lindica- 
tlon du DRIVE est inutile : ProDOS le chercho... et 
le trouve. Quelle belle Intelligence 1 

RUN et BRUM Ce qui suit est igale- 

ment valable pour 
LOAD et BLOAD. Quond le programme que vous 
desires charger ou lancer nest pas dans un 
sous -volume (DIR). vous I'obtenez en topant 
directement RUN NOM ou BRUN NOM... ou 
encore — NOM (etticoce dans un cos comme 
dans lautre), Ceci dlt, rien ne vous empeche 
d'aller charger le programme d'un sous* 
volume, sons changer de PREFIX, mais noubliex 
Jamais que ProDOS ne conserve en mAmoIre que 
le PREFIX qui lul a lormellement Hi Indiqu* par 
une commande de type PREFIXJ)! ou PREFIX 
/NOM (nom = pritlxe en question). S( vous char- 
ges un programme till dans le sout-volume 
TOTO alors que le PREFIX fourni octueltement 6 
ProDOS est celui de la disquette (TM1, par exenv 
pie), vous allez taper LOAD/TM1/TOTOAIU, et 
cela va marcher. Toutefois, attention I 51 votre 
programme fait appet 6 un fichfer 6crit dans lo 
soul-volume TOTO (e'est Iriquent), il vo se plan- 
ter,,, h moins que votre commande en Basic n'uti- 
lise elle-mAme la tormule ci-dessus TM1 TOTO 
/FICHIER, parexemple. 

II est done souhaitoble. avec ProDOS et les sous- 
catotogues DIR, de changer de PREFIX ovant de 
toper un RUN. Dans le cas 6voqu6 ci-dessus, 
commencez par PREFIX /TM2 /TOTO puis — UL1 .. 
et tout se passera bien. 



5f vous rencontrez des problimes en travalllant avecou sous ProDOS, n'hesitez pas 6 m'4crire. 
La consultation est gratulte (*auf pour les jeunes lilies, dont /'attends une bhe charitable) I 

NES TOM. 



GUY-HACHETTE 





LANGAO.E MAfHINF 1 


Saisie d un texte, 

1 suivie de son aff ichage 



fju OMMENT vider vofre ifcran, rnaterlaliser lo longueur maximum du texte 6 rontrer par 255 
j> points, saisir ce texte (avec so pontiuation), puis le r6ofticher Instontonemen! ? Rien do plus 
^ facile, avec le petit programme ci-dessous. 

UN DETAIL : le contenu du buffer est UansUrt 6 I'adresse SMOO. mais ce choix est arbiirairo of on 
peut dvidemment utillser une autre odresse. 

RECUPERATION : dons r*tat octuet du programme, on ne peut pas rdcup^rer te texte »oi$l (el 
memorise 6 I odresse S2000) sou* forme de variable, mois il est possible de I'tcrire sur une dis- 
quette, sous forme de (Icbier B. par exemple en tapant un BSAVE TEXT. AS2000. L$I90\ 

Un BLOAD T€XT lui fera retrouver so ploce a l adresse $2000 (ou 6 une autre, car on peut taper 
BLOAD TEXT, AS3QQ0. par enemple), 

• f**0MO< 1 1 W otof^ qu# lo toa^r mc-imum t«*ii •*! o> S*f tftt C0nxt*nn> 7 *W r» j>atp«di» l« ((33) quMn*qu*Mlc I. nfeti . i. 



300 




20 


58 


FC 


JSR 


$FC58 


JFCM. e'«»t U HOME du Bask. 


303 





A9 


04 




IDA 


£$04 


£04 r\\ mifc dim* (An iimiilntnur A mile Arrli A \'tsAr*i»m** 
f umhp i nv^uinuiUTVui n M puis full O 1 QuiVIIv JJJ 


305 





85 


25 




STA 


S25 


(qui cor roipond a VTAB) 


307 





20 


8E 


FD 


iSR 


SFD8E 


Sout 6 Id linno tulvfintii 


30A 





A9 


AE 




IDA 


£5AE 


l'Arfumulatouf olt tharaq avoc SAEM 


30C 





AO 


FF 




LDY 


£SFF 


Bovde de f {255 coroctoras) 


30E 





20 


F6 


FD 


JSR 


SFDF6 


AHithoga du contonu do A 


311 




68 






ncv 




JVLmn« 1 pour V 


31? 




DO 


FA 




BNE 


S030E 


SI Y ott dirforont da i*ro . un aulro four 1 


314 




A9 


04 




LDA 


£$04 


Slnon on charge A avtc la valour $04 


316 




85 


25 




STA 


S25 


»*. pour placer to curteor eu dabut Ugno* da points quo I on 


318 




20 


8E 


FD 


JSR 


SFD8E 


o troceat 


3IB 




20 


6F 


FD 


JSR 


5FD6F 


CM port! pour un INPUT 


31E 




A2 


00 




LDX 


£500 


X att mlt a lira (Bout to) 


320 




BO 


00 


02 


LDA 


$0200 ,X 


Loclur* du buffor ($200 + votour do X) 


323 




C9 


8D 




CMP 


fS8D 


Ett-c* 1* torocf oro RETURN ? 


325 




F0 


06 




BEQ 


$032D 


SI out . tormina i on vo a $32D 


327 




9D 


00 


20 


STA 


$2000, X 


Etrituro do A 6 lodrosio S70OO + valour do X 


32A 




E8 






INX 




X att Increment* da T 


328 




DO 


F3 




BNE 


SO 320 


Itotour ou debut da lo bouclo 


32D 




A9 


22 




LDA 


£522 


Guiriamaft {$22) dent A 


32F 




9D 


00 


20 


STA 


$2000, X 


lit wont llmlter la fe*fe a ludnn-.e $2000 + X 


332 




A9 


oc 




LDA 


£$0C 


S0C don* A (12 on decimal) 


334 




85 


25 




STA 


S25 


... pour VTAB 


336 




20 


8E 


FD 


JSR 


SFD8E 




339 




A9 


00 




LDA 


£$00 


On ploca I'odreue du texte a off Icher don* A (portie batte) at V 


33B 




AO 


20 




LDY 


£$20 


(portio houfo) 


33D 




20 


3A 


DB 


JSR 


SDB3A 


SDBJA affkho una chain* pomrdo por Y, A ( oi t* lermlnanf nor 


340 




60 






RTS 




"Ov0. 



CE PROGRAMME NEST UTILISABLE QU A PARTIR DU BASIC PAR UN CAIL 768 



TREMPLIN MICRO 



Les variables 

dans la memoire de I'Apple 



LANGAGE MACHINE 



N salt comment est organ**** la memorisation do* vorlabfes et il est done locile do les retrou- 
ver gr&ce 6 une sdrie de pointeurs, b des odresses parfaitoment connues* II existe pour ceta 
divers precedes. Nou* nous int6resserons ici au plus simple, qui utilise, en lo modtliant [b 
peine) et on la compliant, lo routine de la page pr*c*dente. 

Salsir un texte est certes intdressant, mats son utilisation reste acrobatique s'il n'esl pas transform* 
en variable. Pollions done cet inconvenient ! 

Dons notre exemple. le progromme Basic pourrait ressembler 6 ceci 




IMPOR TANT : 

AS (ou un autre nam) 
on Basic ce qui. nous 



doit obsolument etre la premiere variable du programme 
allans le voir immddlatemenl, simplllle la recherche, 



332 
334 




86 
A9 


08 

OC 




STX 
LDA 


SOB 
£$0C 


LO lonflu«ur du lol»l 0<t continue en X at II COnvioflf da lo 

itockor on page toro , d una odra«o dUpenlbla (en offel i M 
SFDtE vo d*trvko lo valour do X), 


336 




85 


25 




STA 


$25 


338 




20 


8E 


FD 


JSR 


$FD8E 




33B 




A9 


00 




LDA 


ES00 




33D 




AO 


20 




LDY 


£S20 




33F 




20 


3A 


D8 


JSR 


SDB3A 




342 




AS 


69 




LOA 


$69 


On lit fcl 1'odrotM. porflo bono dm lo variable Al 


344 




BS 


06 




STA 


$06 


... at on la mflinnnio P°Q* <*'a 


346 




A5 


6A 




LDA 


S6A 


Malntonont, c'ott I'odrofto da la parti* haute.,. 


348 




85 


07 




STA 


S07 


„. ngniomunt tlocfcoe poga ioro 


34A 




AO 


02 




LDY 


£$02 


V a«1 mil 6 Sv7 


34C 




A5 


08 




LDA 


SOB 


Rocupof otfon da la longuour 


34E 




91 


06 




STA 


($06J ( Y 


Ecrituro d Todraf w luo an 41 at 7% + Y 


350 




C8 






INY 




Incromontafion da V 


351 




A9 


00 




LDA 


£$00 


Portia baito da I'odroM* S20Q0 


353 




91 


06 




STA 


{S06).Y 




355 




CB 






INY 




Incrementation da Y 


356 




A9 


20 




LDA 


£$20 


Portia hauto da I'odrosi* 


356 




91 


06 




STA 


($06},Y 


Ecrlture d rodra*ta luo an 6$ at 7S + Y 


35A 




60 






RTS 




Rofour au Bask. 



REPONSES A DEUX QUESTIONS 

I • Pourquoi est -on tdr de //re I'adres M de la variable A$ an $69 — S6A ? 

Force qu'elleest la premiere du programme, sinon, U faudroit la chercher^ ce que nous etudie- 

rons plus tard* 
2. Pourquoi donnor una valour da $02 a Y (llgna 34A) ? 

Le dmcriplH de choque variable occupe 7 octets. En $06 - $07, on a ladresse (invers^e) du pre- 
mier. Or, celui-ci ne nous intdresse pas. II contlent en effet le nom de la variable (ici : $41). Le 
suivant pas davontage. Par contre. le troisi&me contient so longueur, lo quatrieme ot le cm- 
qui^me son adresse {inverse). 

Relisez b ce sujet les enplications donnde* pages 44 ot 45 du N°2 de TREMPLIN MICRO. 



GUY HACHCTTE 




HGR Initialise la page grophtque et POKE 
•16303,0 permet do mpprimer la fen&tre 
TEXT. 

t unitb do meture dangle eft le radian. 
Or. la longueur dune eirconfirente de 
royon I vout 2 PI rodian* (P8 = PI ■ 2). 

C£ etl Tangle (en rodlant) correspondent a 
choque wcreur. ou part du galeou. 



DESSINE-MOI UN CERCLE 



IE BASIC de I'Apple n'est pas le LOGO, el il ne comporte pas 
de commande permettanl de tracer directement une clr- 
conferenc*. 

Ce programme de demonstration vous propose deux solu- 
tions. La premiere est lenle. mais econome en memoire. La 
seconde est rapide, mals grande consommatrke de variables 
numeriques. Nous avons en outre portage le gateau en 1? ! 



INITIALISATION 

10 HGR ! POKE -16302,0 : HCOLOR = 3 

20 S = 12 

30 DIMC(S) 

40 PI = 3.1415926 

SO PB = PI • 2 

60 CE = PB / S 

70 XC p 140 : YC = 94 

SO H = 90 



5 - 


N ombre de parts 


PI - 


Vtleur tubituelle 


ft * 


Rjyon du cer tie 


XC - 


Position horizon idle du centre 


YC - 


Position verticals 



METHOD K LINTV 



Cakul preaiable de» 1 2 angles. 


90 


FOR J = TO PB STEP CE : C{l) = J : 1 = 1 + 1 : NEXT 


Inilloliiotwn. 


100 


HPLOT XC, YC TO XC, YC : 1 = 1 




110 


FOR A = TO PB STEP 0.01 


Quand on obltcnt Is voleur da I'onole du 


120 


IF A > = C(I) THEN HPLOT XC. YC TO XC + X, YC + Y : 1 


nouvMu lecteur. on troct la limit*, 




= 1 + 1 


En Invariant X el ¥, 1* corclo «tt (roc* a 


130 


Y = R * SIN (A) 


Convert (leni contrail* des aiguilles d'una 


140 


X = R ' COS (A) 


man t re). 


150 


HPLOTTOXC + X.YC + Y 




160 


NEXT 




170 


NS = 1 : GOSUB 350 



la voleur de ND pourrnlf etr* 90. pour un 
l foci plui groiiier... ou 369 {mail gore b 
la place-memoir* I) 



Comme vous pouvei 1* eoniloter, on 
memorii* lei valavri de COSINUS el 
SINUS ce qui va permettre (ligno* 290 at 
Wfll. de gogncr un tempi considerable 
par la suite. 



200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 

330 
340 



HGR: POKE -16302,0 : NS = 
ND - 160 

DIMSI(ND) : DIM CO(ND) 
FOR I = 1 TO ND 
A = PB / ND • I 

CO(l) = COS(A) " R : Sl(l) = SIN(A) 
NEXT 

HPLOT XC + R, YC 
FOR I = 1 TO ND 

X a XC + CO(l) 



Y = YC + Sl{l) 

HPLOT TO X. Y 

NS = NS + 1 : IF NS = 

YC IOX, Y 

NEXT 

NS = 



CALCUI FINAL DK COOtDONNEK Of 
CHAQUl POIN1 DE 1A CIICONFiWvtf 



ND S THEN NS = : HPLOT XC, 



ATTEMTE 



350 CALl-198 : POKE -16368.0 : WAIT -16384,128,127 
-16368,0 : HOME : TEXT ; IF NS <> THEN RETURN 



POKE 



47 



TRCMPUN MICRO 




APPLE //!■ el APPLE lie (DOS M -PrnPOS) j 




LM 

assistee 



Recopier les 768 octets d une 
fonte de caracteres deviendra 
plus facile, pour vous, avec 
cette petite routine inedite. 



FONCTIONNEMENT 



La routine vous demande I'adresse de depart de votre programme en 
langage machine* Si celled est $300, pas de probldme. Par contre, si 
elle est comprise entro $800 el $1770, {emplacement occupdpar 5alsie 
LM ossi&tde) convene* done autro odresse. II est facile de modifier I'adresse d'un pro* 
gramme enregis1r£ sur disquelte (lire plus loin) 4 

Toutes les huit lignes, le programme transfere tes 64 octets qui viennent d'dtre saisis 6 leur 
adresse definitive* A la fin, le bloc ontier eat automatiquoment sauvd sur disquetto ot Ton 
vous annonce la couleur : Adresse et longueur. 



LIMITATIONS 



La momotre de I Apple, bien sur, constitue la premiere limitation, mats 
ll en enisle une aulro ; uu fur el 6 mesure de la satelo, le* variables 
utilises dans le programme deviennenl envahissanles et risquent 
d'iScrosor vos prdcieux octets. Commont eviter cela ? en prenant la precaution (el£men- 
taire) de revoir la valeur de LOMEM (figne 10} et. Aventuellement, en utilisant HIMEM. 
£xemp/e : vous ddsirez recopier DIAXARAC de la page 57 (56100 6 S63FF), Fixez carre- 
ment un HIMEM : 24576 ou remontez LOMEM 6 25600 ($6400). Dans un cas commo dans 
('autre, vos donnees seront alnsi mlses 6 I'obri d'un quelconque K*crosemont». 



TRANSFER! 



Nous I'avons Dvoque plus haut. il peut dtre interessanl de saisir un 
programme 6 une autre adresse que cello 6 loquello II est prevu. Si 
cela vous arrive, notez les indications qui opporaltront sur votre ecran 
et proc£dez de la mant&re suivante (ceci concerne les neophytes}* Supposons quo vos notes 
donnent ceci : BSAVE TOTO, A$20GG, L768 S22FF. mais que. pour de.» raisons personnolles, 
vous teniez a avoir TOTO 6 I'adresse $60). Deux solutions ; 

1. Tape* CALL 15! (RETURN), puis, immddiatement 6 lo suite de lasterisque : 
* B0 X 2000 22FFM. et RETURN, puis 

1 BSAVE TOTOl, AS8Q1. L76B„. RETURN et CTRICRETURN, 

2. Topez slmpiement BLOADTOTO,A$801 (RETURN), puis BSAVE TOTOI, ASBQ1. L768 (RETURN). 
Bien entendu, la routine SAISIE LM ASStSltE (qui Atait 6 I'adresse 801) □ disparu, mail elle est 
sur dlsquette. 

Pourqual TOTOl ? Pour conserver lo version original© (on ne sail jamais). Si tout a bien rnarcho. il 
sera toujours possible d'effacer TOTO et de TAPER un RENAME TQIO) t TOTO, pas vroi ? 



GUY HACMETTE 



16 LCHEM: 690ft 

28 TEXT j PRINT CHR* U2); CHR* <2U 
I HOME 

38 M 3 CHR* (4)( GOSUB 1148 

48 FOR I = 1 TO 18:T$ = T* 4 ■ *! 

NEXT 

58 IWERSE i PRINT *- SAISIE ASS1STEE 
O'UN PROGRAttlE EN LM I NORMAL 

a* LIGNES* * "15341**41792192111441192 
1 3281 4481 57*1 784 18321 948 II 84 1232" 

78 FOR I * I TO 27 5TEP 9i VTAB 2 • < 
1*8)- HTA8 32: PRINT HIM <* 
ADRESSE OE DEPART SUP ? p ,l 1 9>: NEXT 
t CALL - 198 

86 GOSUB 148: GOTO 328 

98 i 

118 REM I W U f MH I H I MM I H HI HH M 
118 RBI Mi PRIORITE AUX GOSUB *« 
128 REM 8#>— tt WMMMMM iti MM I 
138 : 

148 VTAB 16! PRINT j CALL * 958i PRIM 
T T* 

358 PRINT i V/TA0 21: CAU - 848: RETU 
RN 

168 VTAB 21 i HTAB 12: INVERSE : PRINT 
"RETURN POUR STOPPER* J NORMAL : RET 
URN 

178 5A* - 5A8 • 5* ♦ CHM <32);S*<V - 
S> = 55; RETURN 

188 i 

198 REM •« 

288 RBI •** PLUS HU1T OCTETS M 
218 REM • MMMMMMMtffcM 
228 i 

238 IF LI * 1 THEN 246 
?46 P6 « PEEK <4>iP7 » PEEK <7> 
258 CALL CUM = ""I FOR I = 1823 TO 1 
S26IN1 ■ m * CHM ( PEEK < I > - J2 
B>l NEXT INI » RIGHT* <CIBI" * N* 

2*8 VTAB 8: HTAB 32: CALL C2: RETURN 
278 i 

298 REM • •••••■•••••••••••t.*t»»« 

298 REM ADRESSE OE DEPART 

388 REM 
318 t 

328 N* m *8888*fN = li GOTO 378 

338 m ■ "i FOR I • 1414 TO 1419tN* • 

M * CHR* < PEEK (I) - 12S)i NEXT 
348 IF N > 5 THEN N = 5: CALL - 190 
338 JF N < ) 4 THEN 378 
368 GOSUB 168 

378 VTAB 28: PRINT : PRINT m* ■ j : HTA 

B N: GET R*iR = ASC <R*)t IF R ■ I 

3 THEN 428 
386 IF (R > 47 ANO R < 38) OR (R I *4 

AND R < 71) JHB4 N - N • It PRINT R 

ftl GOTO 338 
398 IF N > 8 WO <R - 68 OR R - B) THE 

N N * N - 1 : GOTO 338 



488 IF R = 21 OR R = 42 THEN N ■ N * I 
: GOTO 338 

418 poke n * 1613,176: goto 338 
628 vta 8 21 1 htab 12: flash : print "c 
onfirmezmi normal i ppiwt * par <o 
ui) svp •;: call - 19b: get r*: if 
r* < ) *0 - wd r* < > # 0" then 

GOSUB !38iN « It GOTO 376 
438 AD* = M*:G* = '6*i" * RIGHT* <N* t 2 

) t • • * LEFT* <N*,2) ♦ * ND823G- 
448 FOR I * 1 TO LEN <G*)i POKE 311 ♦ 
1, ASC < HID* (G* , 1 ,1 ) ) 4 128: NEX 

T l POKE 72,8: CALL - 144 
438 ^TAB 3t HTAB 32i ItfJERSE I PRINT N 

*fl NORMAL i PRINT • "i CALL - 9 

59 

448 i 

478 RBI I H I HHIimnn il W l iMH H 
488 RBI *M SAISIE UNE LI ONE 8M 

498 REM III HIIt W milHH i H I • 

588 : 

518 GOSUB 148: GOSUB 168:U = BiLI = 8: 
FOR 1 - I TO BiS*(I) - '88 88 68 8 
ee 88 88 86*1 NEXT 

328 H ■ 3lE * I tLl • LI » 1 

538 UTAB 7; HTAB 32: GOSUB 238 

346 IF V » 8 THEN 01* ■ fH 

338 P * VAL < HID* <Ll*,V t 4 - 19,4m 
* 3 

568 S* ■ S*tY - 7>|N » 1: GOTO 638 
378 IF E « 8 THEN N ■ N - liE * 2i IF 

N < I THEN N * 1 iE = I 
388 GOTO 436 

598 IF E = 3 THEN N = N 4 1 :E = 1 t 
488 IF N > 23 THEN N - 23iE - 2 
616 IF N « 23 THEN CALL - 1 99 1 CALL 
- 19B 

628 S* - "i FOR I * P TO P • 22iS* * S 

* ♦ CHR* ( PEEK (I) - 12B)t NEXT 
638 UTAB V: HTAB ll PRINT M* j* 1*5* [ i H 

TAB H * Ni GET R* 
648 R * ASC <R*)i IF R * 13 THEN 498 
658 IF (R ) 47 AND A < 58) OR (R 1 64 

WD R < 71) THEN N * N 4 1: PRINT R 

*iE « E 4 1 j OOTO 398 
668 IF N > 8 WD <R = 48 OR R = 9) THE 

NN-N-ltE-E-li GOTO 578 
678 IF R ■ 21 OR R « 42 THEN N » N * I 

iE = E 4 1j GOTO 5*8 
686 POKE N 4 P - 1,174: GOTO 426 
498 GOSUB 156 

768 VTAB 21 1 HTAB 6z PRINT M*|i ir*JER 
SE : PRINT •C B |I NORMAL : PRINT •> 
POUR C0NT1NUER LA SAISIE *;t CALL 
- 1 98 1 GET R*i IF M < > "C" WD R 

* < > *c" THEN 736 

718 V • V 4 |i G03U8 176: IP V ) 13 THE 

N 828 
728 GOTO 526 

(SU/TC PAGC SO) 



I* 



TREAAPLIN MICRO 



SAISIE LM ASSISTEE (suite) 



738 VTAB 21 1 HTAB 5i PAINT # <*;i IWVER 
SE i PRINT *0- 1 * NORMU : PRINT ■> 
POUR STOPPER VOTRE SAISIE ';: CALL 
- 198: BET Mi IF M < ) "O - AND 
Rt < > "o* THEN 698 
IF N o | THEN N = 23:LI = LI * 1 t 



748 

758 
766 
776 
786 
796 
868 
816 
828 

838 



050 



POKE 6.P6: 
GOSUB 17B 
F = I 

t 

REM 

REM SAl 
REM 



POKE /,P7i SOTO 766 



Gt = Dlt * * SA* * "ND823G" :5Af 

m * 

FOR I - I TO LEN <Of>i POKE 51 1 * 

1 1 ASC ( HUH <W,I,1>) ♦ I28i N£* 
T : POKE 72,6: CALL - 144 
[F F < > I THEN y** 8i OOTO 328 
IF N - 23 THEN L • LI • 8iN ■ B; 
OTO 928 

N - (N - l> / 3iL - <LI • 8 - 8) I 
N: IF L < « 6 THEN END 



179 i 



910 
976 



938 

948 

958 

978 



REM 

REM ECRITURE DU FICMIER 

REM i*MM<iiniimiHiini 



GOSUB 158: UTAB 21 1 
•TITPE DU FICHJER A 
IF Tit - " THEN 928 
IF ASC ■ TI») ( 65 OR 

96 THEN 921 
PRINT Df*MCNCJ ( a* 
GOSUB 146: VTA9 21 
'Tit - ,W'AW ,L*L: 



HTAB 5i INPUT 
CREER f "itWl 

ASC <TI»> > 



PRIWT DVB5AVE 
POKE 56,128 



VTAB 21 : POK 
I ■ 1646 TO 1 
( PEEK (I) * 



99p 
1888 
1616 
1628 
1836 
1040 



PRINT WNOWN C,I,O p t POKE 36,233 
N =» N - I 
POKE 5984,N:D2$ = "*1 
E 36,38: CALL CI : FOR 
649iD» m 02* * CHR* 
128): NEXT 

i 

REM * - 

REM IMPRESS I CM B/ENTUELLE 

REM lillilitMMIIillllllililllii 



CALL - 198: POKE 



- 16384, 128 T 127i 



- 16398,8: WAIT 
POKE - 16368,8: 
GOSUB 140 
VTAB 21 1 HTAB 5i PRINT "<'|i IWER 
SE i PRINT M"H NORMAL : PRINT •> 
POUR IMPRESSION OE SAISIE "(I CALL 
- 198: GET Mi IF M ( > "I* AND 
M < J * i * THEN 1878 
PRINT : PRINT M"PRfl' 




»3?&itB e& it it tv 99 

d3?Sttl 99 99 99 99 99 Of Bfl 

033dt00 99 99 99 9% 99 99 

• 338iM 99 99 99 99 99 *« 99 



Gf - AD* * * 02* * • Ni?260 - i F 

OR I ■ I TO LEN <W): POKE 511 * I 
, ASC < MID* <»,!,!)) * 128: NEXT 
I POKE 72, 61 CALL - 144 
HOME : END 



1898 
1188 
1118 
1128 
1138 
1148 



REM 
REM 
&EM 



999 RflVriW ADDITION HEXA 



POKE 5988,165; POKE 3961 t 6: POKE 5 
982,241 POKE 3963,183: POKE 3964,8: 
POKE 3963,133: POKE 5986.6: POKE 5 
987 T 178i POKE 5966,144 
POKE 3969,2: POKE 5918,238: POKE 3 
911, 7i POKE 5912,i64i POKE 5913,7: 
POKE 5914,32: POKE 5915,64: POKE 59 
16,249: POKE 5917,96 
POKE 3918,1631 POKE 3919,7: POKE 5 
928,166: POKE 5921,6: POKE 3922,32i 
POKE 3923,36: POKE 5924,237: POKE 
5925,96 

POKE 5926,32: POKE 5927,251: POKE 
592B,2I8i POKE 3929,32: POKE 3936,1 
47: POKE 3931,254: POKE 5932,32: PO 
KE 3933,88: POKE 5934,252: POKE 593 
5,76: POKE 5936,288: POKE 3937,3 
1386 CI « 5988:C2 = 5918: RETURN 



II5fl 



1168 



1178 



NOTE 



lm% lianas 1140 of 1170 p«uv*n1 4tf* 
romplocto* por 38 OCftti «n 
Icmgoge-machina, Pour In %a\%n mi 
fouvogafdor. reipectof la ptocMure ci-apri* 
((3 flgnlfl* RETURN). 

CALL- 151 31 (ro»i*riiwito*»opp^tT*M#fvofr**OTn). 

* 170C ; A5 06 18 69 08 B5 06 AA 90 02 E6 07 A4 07 
20 40 F9 60 A5 07 A6 06 20 24 ED 60 20 FB DA 20 
93 F£ 20 58 FC 4C DO 03 &.' 

- BSAVESI.AS170CL38 E 

* CTRL-C (OU RESET) voui fora r»trouv#r 9 Baiic. 
Topu «n»ull« : 1140 PRINT CM«$(4) , *BLOADSr S3 
DEL 1150. 1170 (3 ■ 



GUY-HACHETTE 



SON 



DOS 3-3 ProDO 




FAITSON.LM 



QUELQUES NOTES 
POUR VOTRE APPLE 



A A A 

306* 


At 


0A 


LDA 


t*0M 


A A J\ A 

0392- 


85 


0£ 


STA 


a A * 

*0O 


8 304- 


A9 


0E 


LDh 


£»0E 


0306- 




0/ 


OTA 

STA 


i a 7 


J08- 


AD 


30 C0 


1 FN. A 

LDA 


SCO 30 


030B- 


68 




DEY 




A *% A 

030C- 


' A 


A rt 


M if— 

BNE 


A A "1 a -— s 

S03I2 


038E- 


w 




DEC 


A A L " 

*07 


8318- 


re 


0? 


BEQ 


S03I9 


8312- 


CA 




DEX 




931 3- 


DB 


F6 


BNE 


*630B 


0315- 


A6 


96 


LDX 


•06 


0317- 


D0 


EF 


BNE 


•8388 


0319- 


A5 


86 


LDA 


486 


031B- 


CP 


28 


CMP 


£*28 


031D- 


F8 


87 


BEQ 


*0326 


031F- 


ie 




CLC 




0320- 


6? 


85 


ADC 


£*05 


0322- 


85 


86 


STA 


•86 


0324- 


DO 


0E 


BNE 


«8384 


8326- 


68 




RTS 





BSAVE FAITSON.LM. AS300 . IS27 



E 



. ES (infants sont parlicullArttment 
L sensiblas oux manifestations sonores (les adultes ne le sont pas moins d'allteurs !),slil 
itf r •command 6. dam un jeu, de ponctuer chaque bonne r6ponse par une pelite musl- 
que. Cf lie que je vous propose est assez particulars... el je vous la laisse decouvrir ! 

Vous I'obtiendrez dlrectement. dans un programme, par un simple mals efflcace PRINT 
CHR*{4) ; "EXEC SONDIR". Comment creer ce f iehier EXEC ? Comme ceci : 

I IB M - CHR* (4):D* * CHR1 ( 34> : PRINT DfOPENSONDIR" : POKE 33,33; 

PRINT D»'URITE30ND1R" 
CAUHID 11 PRINT ■rORS-768T07WiPOKES,WAL(MlW<" ♦ G« * ■fl8i730'1819213o2B80 
MJNUIK e41988e72480B82fl22B924616o8B6B76Bfl8fle3B96" * Q» * " , < S-7671 «3, 3>) 

:NEXTS :F0RU=1BT04BSTEP5 ! P0KE6 1 U:P0KE7,15:CALL768:NEXTU" 

12 PRINT DV CLOSE" : POKE 33,48 

Mais il n'e»t pas Interdit d'inclure une ligne 10000 (par example) dons ce memo programmo. 
ligne que vous ne retaperoz jamais plus (quelle belle economie, en verlte 1) si vous creez. 16 
encore, un utilitalre EXEC que vous titrerez SONPRO (PRO = programmo, intelligent, non ?) 

I IB D» = CHM <4>iG$ = CHR» <34>: PRINT DVQPENS0NPR0" : POKE 33,33: 
PRINT D«"URITES0NPR0" i LIST 18808: PRINT Dl'CLOSE": POKE 33,48: 

SONPRO 100fl8 FOR 5 = 768 TO 7B6 : POKE S, UAL < MID* ( "0B 1 730481 921 36208884 1 9 

18887248888282208246166886876060883896- ,(S - 767) « 3,3>)t NEXT Si 
FOR U = IB TO 48 STEP 5: POKE 6,Ut POKE 7,13: CALL 768! NEXT U 

E.idrmmcni il voui et** musician... ou muilclann*. velie PMA (P*tll« Muitqua AppU) loro la blenvenue... 
il ell* est tur dlsauetl* (en vovi ■■ r«tournera, fol d* NESTOR I) 
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TRCMPUN MICRO 




La routine on langoge moch.n* ne compte que 
71 octets. Elle peut Aire comprise sons une 
connaissance approfondie do rassombleur* 





Ouvrez I'ceil ! 



^ E court programme, modifiable 6 volonte 




ecran. puis de tester {'exactitude de volte 



16 TEXT : PRINT CHR* <21): HOME 

26 PRINT CHR* (4)"BL0AD OUVREZ. LM" 

38 T» = • OUVREZ L'OEIL! ■ 

48 POKE 32,I2i POKE 33,28: PRINT 

58 IWERSE i FOR 1 - 8 TO 12) VTAB I: PRINT ■ 



68 VTAB Bi PRINT HTAB 14: PRINT ' i " : VTAB 18: P 

RINT T»: VTAB 12: PRINT ■ > I HTAB 16: PRINT »|"| N 
ORMAL 

78 POKE 32,4: POKE 33,33: PRINT i PRINT : PRINT "QUAT 
RE CARRES VONT APPARAITRE SUR" i PRINT "VOTRE ECRAN. 

IL S'AGIT DE TROUVER'i PRINT ■ QUEL EST LE PLU 

S PETIT." 

66 TEXT : Q03UB 228 

98 X * INT ( RND (I) • 4): POKE 7,X: HOME 
188 X ■ X ♦ li CALL 768 

118 VTAB 21: FOR I » 6 TO 32 STEP 8i HTAB I: INVERSE : 

PRINT I B I : NEXT : NORMAL : PRINT 
128 VTAB 23: HTAB 6: PRINT "QUEL EST LE PLUS PETIT CAR 

RE ?'i GOSUB 228 
138 IF R < 1 OR R ) 4 THEN VTAB 22: PRINT i GOTO 128 
148 VTAB 22: CALL - 958: VTAB 23: INVERSE : IF R ■ X 

THEN HTAB 15: PRINT "C'EST EXACT! * : GOTO 168 
158 HTAB B: PRINT "ERREURf C'EST LE NUMERO "X 
168 FLASH : VTAB 21: HTAB X * 8: PRINT X: NORMAL : GOS 

UB 228 

178 HOME : VTAB 22: INVERSE : PRINT l|j NORMAL ! PRINT 
" UN NOUVEAU TEST ? *|| INVERSE : PRINT 2}: NORMAL 
l PRINT ■ MERCI! C'EST F1NI': GOSUB 228 

IBB IF R = ] THEN 98 

198 IF R < ) 2 THEN 178 

288 TEXT l HOME : END 

218 : 

228 CALL - I9B: POKE - 16368,8: UAIT - 16384,128,12 
7i POKE - 16368, 6:R = PEEK < - 16384) - 48: RETUR 



♦ POKE 32.12 coiteflpond 6 
HTAB 13 Cola ovite une 
ropotitio" do HTAB dani le 
prog r amnio 



• le tiumero du plut pent 
cane eat deleimlne 
oleatoitement On I'tncie- 
menle de 1 car (e numero- 
lage du progiamme en lan- 
goge machine commence 6 
**ro. 



Lo programmo no prevail 
pas de memorisation des 
resultati, at peut done 
6tro om*l(or 6 on ce sens. 



GU V-HACHETTE 









a 

V 












1 


« 






• 


Assemblage 








2 
3 


* 0WRE2 


L'OEU! G- 


■ 


par ProCODE 








4 


«*■*« t «*»»««#*«**** tft««ft«*a 011 














ORG 


» 308 












u 

7 


NBR 


EQU 


»B6 


;Pomt«ur pour ncrbre dfi carrfs 








6 

u 


ROT 


EQU 


>ee 


[Ratal ion 




Si vous n* possMoi 


9 


HOR 


EQU 

fc- J V 




(Poll t ion hor . dt bas« du carrf 


pos d*Qt»mbl*ur, 


18 


PETIT 


EQU 


«87 


)Num*ro d'ordrt du 


petit carr* X 


cont*nt««vous d© 


11 


SCALE 


EOU 


»E7 






toper ce* 


valeur*, 


12 


HGR 


EQU 

w \ft W 


SF3E2 


iPaftsagt en mode HGR #wec text* 


aorta un CALW51 


13 


HP05N 


EQU 


*F41 1 


;Pos. It curs#ur hte rtsolution 








14 


DRAU 


EQU 


* F65D 


(C'es* U cownande 


DRrU du Basic 








ft w 




FQIJ 


% 341 


jLa -forme < I c 1 T un 


carr*) 






PI 

C* r J 


J V 

1 7 

1 r 




U Jn 


HfiR 

nun 


jAvec e**acement 




w ■*> U J * 


A9 


B 1 
v V 


1 ft 




LDA 


£* 90 

b V ■> V 


;]n) t ial isat ion g*n#rale 


13 J U J l 






1? 

J r 




5TA 


NBP 


(Pointtur < Ira de 1 


1 A 3) 


ana? - 




A P 


78 




STA 


ROT 


[Rotation « 8 pour 


commencer 


OJBT i 


AO 
M F 


.1 it 


2! 




l HA 


£148 

t » ^ V 


jPour initial i«r 


la pos- horii. 






LIV 






STA 


HOR 






■ d v V * 


A3 


V r 




BDUCLE 


LDA 


S89 


.Lecture pos 1 1 1 on 1 


horizontals 


A 30P - 

•v* 1 * 






24 




TAX 




iralse dan5 le regi- 


itre X 




1 6 

t u 




25 




CLC 




jAnnulatton de U 1 


-etenue 


ft^t 1 t 

1 1 


A9 




iCO 




ADC 


£^28 


|Pos(tlon augment** de S2B 


v JlJ » 


0* 


no 

w w 


27 




STA 


HOR 


let r*«crite A 1'adpesse %89 


y ♦ -j ■ 


AO 

M ■ 


AC 


28 




LDA 


£«4C 


(Potitton verticale 


631 7 1 


Ad 


u 






LDT 




(Registre Y A z#ro 




V W J ' ft 


2fl 
*v 


1 1 F4 


^8 




JSR 


HPOSN 


{Initial sat .on du 


curseur 


B31CI 






01 




LDA 


£i39 


iFact. d'lchelle de DRflU <Scale> 


• 31Ei 


A4 


86 
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LDV 


NBR 


|De quel nu»*ro 


igit-il ? 






H? 


33 




CPY 


PETIT 

1 1 B r 


jConparer avec X (Basic) 


3322: 




V w 






ONE 


REPRISE 


iS'il nV a pas *ga!.U, *aut.-- 


8324: 


38 








cpr 




iRetenue k 1 pour 


soustraire 


B325: 


E9 


82 


JO 




cnr 


£(82 


(Scale ■ scale *2 (petit carr#) 


8327: 


85 


E" 


17 




CTil 


SCALE 


im pas oubl ier 




8329: 


A? 


D6 


38 




LDA 


ROT 

l»V T 


i0r> r#cup*re la rotation 


832B: 


A2 


41 


39 




LDX 


£•41 


jAdr. de la torme 


(part re basse) 


832D: 


Af 


83 


Hit 




LOY 


£t83 


jAdresse partte haute 


832F: 


28 


3D F6 


41 




JSR 


DRAU 


(On trace )e carrl 




8332: 


AS 


M 


42 




LDA 


NBR 


jOO tn sownes-nous 


? 


83341 


C9 


83 


43 




CMP 


£«B3 


jSi on est . 3i«i 




8336 t 


<8 


88 


44 




BED 


BASIC 


(,»,rttour au progranot Basic 


8338t 


Ed 


86 


45 




INC 


NBR 


iStnon on lncr#fnente le polnteur 


833A: 


Ed 


N 


46 




INC 


ROT 


1 . . •>( le pot nttur 


de rotat ion t 


833C: 


to 


89 


47 




INC 


ROT 


]2 *o<s pour fair© 


bonne mesure ! 


833E: 


D8 


CO 


48 




8NE 


BOUCLE 


jEt 5a repart pour 


un autre carr 


8348 l 


6* 




49 
56 


BASIC 


RTS 




;R*tour au programme Basic 


0341 1 


21 


3F 36 














2D 


1C 88 


51 




HEX 


2J3F362D1CO0 
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TREMPLIN MICRO 



I ECRITURE SUR PAGES GRAPHIQUES 

100 REM ECRITURE EN RACE GRAPHIDUE AVEC LES CARACTERES OU DOS TOOLKIT 

110 HIMEHi 3461*1 TEXT j HOME 

120 VTAB 24: PRINT : PRINT : PRINT 'COMBIEN DE CARACTERES A UTILISES! ■« 6€T NSt: PRINT NS»:NS • UA 

L (N9t)l PRINT t IF NS < I OR NS > 3 THEN PRINT CHRt (7): GOTO 120 
130 DIM AD(NS>,CSt(NS):Dt » CHRt <13> t CHRt <t) 
140 FOR CS = I TO NS 

150 PRINT "CHAR SET NO , CS;':';: INPUT ■ -jCStlCS) 

160 IF RIGHTS (CSt(CS),4) « '.SET' THEN C5t(C5) = LEFT* (CSt(CS), LEN (CSt(CS)> - 4> 

170 NEXT CS 

180 FOR CS = 1 TO NS 

190 AD<CS> « 35094 t 76B • <CS • 1) 

200 PRINT Dt;"BLDAD ■ CS*( CS) ' . SET ,A" jAOt CS) 

210 NEXT CS 

220 PRINT I INPUT 'NOM DE LA PAGE GRAPH! CUE A CHARGES DANS LE DRIVE 2i '[Fill IF Fit • " THEN 230 
230 POKE - 16366,0: PRINT 'QUELLE PAGE HBRs '|! GET PAt: PRINT PAt:PA ■ UAL (PAt): IF PA ( ) 1 AND 

PA ( > 2 THEN 230 
248 If PA = 2 THEN PA* ■ '4000': HGR2 : GOTO 260 
250 PAt ■ '2000': HGR : POKE - 16302,0 
260 IF Fit ( ) " THEN PRINT Wi'BLDAO'iFlt-.'.M' 
270 CS = I sX = 1 :V = 1 
280 POKE - 16360,0: GET CM 

290 IF ASC (CHt) = 43 THEN CS a CS • li GOTO 430 
300 IF ASC (CHt) = 45 THEN CS = CS - I: GOTO 450 
310 IF ASC (CHI) - 13 THEN Y - Y • liX ■ I: GOTO 430 
320 IF A5C (CHt) ■ 27 THEN 460 
330 IF ASC (CHt) • 32 THEN X ■ X • 1 1 GOTO 420 
340 IF ASC (CHt) = 8 THEN X = X - 1 1 GOTO 420 
350 IF ASC (CHt) ■ 21 THEN X • X * I: GOTO 430 
360 OU ■ INT (Y / B)tRN ■ Y - OU • 6 
370 B = 128 t m • 40 » OU * X » 8192 ■ PA 
380 FOB L - TO 7 

390 POKE B • 1024 » L. PEEK (AO(CS> t ( ASC <CHt> - 32) • 8 » U 
A00 NEXT L 
410 X ■ X • I 

420 IF X = 40 THEN X » |:Y = Y t I 
430 IF Y = 23 THEN Y = 
440 IF X ( 1 THEN X ■ 1 
450 IF CS ) 3 THEN CS = 1 
460 IF CS ( 1 THEN CS * 3 
470 GOTO 280 

430 POKE - 16368,0: GET At: TEXT 

490 PRINT 'VOULEZ-VQUS SAIWFJ) LA PAGE GRAPHIOUEi '[i POKE - 16368,0: BET At: PRINT At: IF At < ) '0 
' THEN END 

500 PRINT Dt['BSAVE';FIt • ■2 l At'sPAt;\Lt2flOO,D2' 

310 PRINT "PAGE GRAPHIOUE: 'ji IWERSE i PRINT Fit * '2';: NORMAL : PRINT ' SAUVEE EN ': 1WERSE i PR 
INT "HGR'jPA; : NORMAL : PRINT ' SUR LE DRIUE 'n IMJERSE : PRINT "2': NORWL 

Si voo5 ne dispose* pas du DOS TOOLKIT APPLE, vous pouvei utiliser les (onios parues 
dons TREMPUN MICRO n°l, pogo 22 (FAIRE.F1J et TREMPUN MICRO n°2. pag© 57 
(OIA.CARAC). A propos de celle-ci, prolitez de (Occasion pour corriger uns erreur lypogro- 
phiquo j BSAVE DIA.CARAC. AS61Q0, LS300 (au lieu de $400). 
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UTILITAIRt 



ProOOS 



Lignes DATA ou lignes de POKES 
peuvent remplacer une routine 
en langage machine 



Porioii, dam un programme en Boiic, quel- 
ques lignes DATA ou de POKES som prefe- 
iQblet 6 iflppol (por BlOAD ou BRUN) dune 
routine en assembler. Cet ulililolre permet 
de les genet ei automoliquemenl, soul 
lorme de fichier CXtC. Pogr les inelure 6 
votre programme. 1 vout iuffira de taper EXEC TITHE pour qu'elles viennent I'fntirer a ('emplacement prtvu. 

IB TEXT t PRINT CHR* (12)) CHR* <21>) HOME 
28 H] = PEEK <H5> • PEEK <116> • 256 
38 T» = ■ LIGNES OE POKES OU DE DATAS ' 

48 IMMERSE ! HTAB 21 - LEN (T*) / 2i PRINT T*: NORMAL 

58 T» = "| FOR I = 1 TO 10:T* = T* ♦ " "l NEXT i VTAB 2l PRINT T*i POK 

E 34,3 

60 : 

78 REM ••••••••••••••♦•••••♦••••ee»«« AHmMM ' tout ProOOS, lot liana 

60 REM «• PARAMETBe- 149 *t 209 dotoont otto modifim+t 

n REH (*olt R£M 135 or 195). 

IflO t 

110 HOME : GOSUB 430 i PRINT ■ <?) POUR LE CATALOGUE DE LA OISOUETTE' 

120 VTAB 4i CALL - B68i CALL - I98i INPUT "TITRE DU PROGRAMME LM S "tTI* 

138 IF TI» = THEN HOME t POKE 44452,13: POKE 44683,12: PRINT CHR* <4 

>' CATALOG* : GET R*i PRINT i GOTO 118 
135 REM AVEC PPODOS 1 1 40 IF TI*=">" THEN HOME : PR INT CHR»<4) "CAT" :GETR*:PRIN 

T:G0T011B 
140 IF Tl* » •■ THEN 718 

150 IF ASC \TI») ; 65 OR A5C (TI*> > 98 THEN GOSUB 650 i GOTO 120 

160 QNERR GOTO 710 

170 PRINT CHR* <4>"BL0AD"TI* 

180 POKE 216,0 

198 GOSUB 638: PRINT - LE <?> RENVOI E A L' ITEM PRECEDENT" 
195 REM AVECPR0D0S:2Be A&*PEEK<.48825'+PEEK(48826>«236s LA a PE£K(4B840>*PEEK 
<4884l>»256 

288 AD ■ PEEK -43634) . PEEK <43635) • 256iLA » PEEK <436I6) * PEEK (43 
617) * 256 

218 PRINT : VTAB 6: PRINT "FICHIER 1NSTALLE: A" ;AD j " , L" )LA: GOSUB 670 
228 GOSUB 638: INVERSE : PRINT lji NORMAL : PRINT " ADRE9SE CORRECTE - *ji 
INVERSE : PRINT 2j: NORMAL i PRINT ■ A MODIFIER " s i GET R*: PRINT : IF 
B* = CHR* 149) THEN 380 
238 IF R» = THEN 128 

248 IF R* ' ) CHR* <50) THEN 220 

258 VTAB 8: HTAB I: CALL - 958: CALL - 19B: INPUT "NOUVELLE ADRESSE ° "i 

AD*; IF AD* = "■ THEN 228 
268 IF ASC <AD*> = 36 THEN 290 

278 IF VAL <AD*> * LA > HI THEN GOSUB 638: GOSUB 668: GOTO 258 
288 GOTO 360 

298 AD* ■ RIGHT* (AD*, LEN <AO*> - IMLA = LEN (AD*> i IF LA > 4 THEN GOS 
UB 648 1 GOTO 25B 

308 R* = "45:" * RIGHT* <<"88" • LEFT* (AD*, LA - 2)),2) ♦ " ■ * RIGHT* ( 

ADft,2> * 1 N ED24G N D823G' 
310 VTAB 8t HTAB 28 1 CALL - 868 (Suite pogo 56} 
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328 

330 

340 
338 
368 
378 
388 
398 
488 
418 
429 



438 
448 
458 

468 
470 
480 
498 
SOB 
518 
528 
530 
540 

559 
568 
570 
580 
590 



618 



620 
638 
64B 

659 

660 
670 
680 

690 
780 
710 



1 TO LEN (R*)j POKE 511 + I, ASC < MID* (R*,I,1)) ♦ 128: NEXT 

72,0: CALL - 144 
■■: FOR I ■ 1939 TO I943iX - PEEK (I) - 128 1 IF X < 48 OR X > 59 



FOR 1 ■ 
i POKE 

AW 

THEN 350 

AO* = AD* ♦ CHR* <X> 
NEXT I 

AD = VAL (AD*) 
PRINT I PRINT CHR* (4>'8L0AD'TI»' ,A*ADi GOTO 208 
IF AD > 60B0 THEN HIHEMl AD - 1 l GOTO 
IF AD > 2000 THEN LOMEMi AD * LA * 1 



CO NSEIL : 

N ailer pas au- 
dela de qualro 
ou cinq lignes 



DIM L*<25) ;G* 
C* = " DATA " j S* 
PRINT i VTA8 101 CALL 
L i PRINT *ATAS 

GET R*i PRINT i 

IF R* < 

IF R* = 



CHR* (34> 
iCH - 1 



IF 



■ ■ 
R* 

) "D" AND R* 
■P- THEN CH - 



- 198i 
■P"i 



PRINT : 
I ONE = 
IF R* - 



VTAB 1 2 i CALL 
1 )R*i IF R* ■ ' 
•?■ THEN 428 



- 958 1 CALL 
INVERSE i PRINT 
■ ■?* THEN RUN 

< > "P- THEN 420 
2lC* » "POKE" iS* - ' 

- 868) CALL - 1 98 i 
• THEN 410 



INVERSE 
NORMAL 



PRINT 
PRINT 



■D'ii NORMA 
•OKES ? "IJ 



ECRITURE OATAS OU POKES •• 
IMfWIMIM'NIIIIWmHIl 



INPUT "NUMERO DE PREMIERE L 

Avne **•» Itgno* DATA. II lowl pr* 
voir d'ln»laHwr le progrommo par 
una boucle telle quv i <■! I* Ct : 

fOR I = X TO 1 : READ I : POKE I. R : NEXT 
[X codiett* d*bu* t ■ odtviav lln) 



AD ♦ LA - 1 IN ■ I 



LEN (L*(N>) ) 
4 1 i GOSUB 690 



220 THEN L*(N> • LEFT* (L*(N) , LE 



NEXT 
5TR* 



( PEEK (I>) * S*l 
STR* <I> ♦ V + 
LEN <L*<N)> - 1) 
TO Ni PRINT L*(I)i PRINT i NEXT 
PRINT i PRINT "FICHIER EXEC CREE 



GOTO 580 
PEEK <I>) 



♦ S*i NEXT I 



(1 INVERSE : PRIN 



REM 
REM 
REM 

I 

L - VAL <R*>:AF 
GOSUB 690 

FOR I * AD TO AFi IF 
N (L*(N)) - 1) iN - N 
ON CH GOTO 560,570 
L*(N) - L*(N) ♦ STR* 
L*(N) ■ L*(N) ♦ C* + 
L*<N) = LEFT* <1*<N> 

HOME : FOR I = 1 
TI* - C* * "EXEC 
T Tl»! NORMAL 

PRINT : PRINT CHR* ( 4) " OPEN'TI* : POKE 
• i FOR I ■ 1 TO Nl PRINT L*(I>: NEXT l 
40 
END 

VTAB I9i PRINT : 
GOSUB 6301 PRINT 
TURN 

GOSUB 638: PRINT 
INT RIGHT* (TI* 
PRINT " EST INCORRECT" 
CALL - 198i FOR 1 - 1 
PRINT 'HAUTEUR MAXIMUM 
0i RETURN 

L»<N) = STR* <L - 18 * N ■ 10): IF CH = 1 THEN L*(N> = L*(N> * C* 
RETURN 

CALL - I9Bl POKE 216,0 
EST INCONNU' i GOTO 120 



33,33; 
PRINT 



CALL - 956: PRINT T»: VTAB 
"QUATRE VALEUR MAXIMUM PDUR 



PRINT CHR* (4>-URITE'TI 
CHR* <4J*CL0SE'i POKE 33, 



22 I RETURN 
DE L'HEXA" : 



GOSUB 670] RE 



G* ♦ 

, LEN 



LEFT* (TI*,1) 
(TI*) - 1)1 
i RETURN 
TO 2500: NEXT 
it INVERSE 



G*;: IF LEN (TI*) ) 1 THEN PR 



; CALL 
PRINT 



HI 



198: RETURN 
- LA; NORMAL 



GOSUB 67 



ER = PEEK (222): GOSUB 630 : PRINT "CE FICHIER 
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Vous avez ecrit 
aTREMPLIN M I CRO 




* Je vitnt de d+couvfit HMhV n°i rhmi mon morzhond 
de tournouk, Jy 01 c r des ide« in/e>essanf** 
morfs ovst* des ©n-eur* gi/y $e baladvnt d© pubttca 
item publication* 

Povrqvot sour©' un eVron re>r© owe i MM ofon que 
i fff F6 march* aufU brfevi ef economise un serfeur sur 

dtSQU* ? W< '■::.= COOS© 0f1 HGff Qu 18)84 lOWVtf U» 

dcrort ©n ^pargjyant a nouvcou on lecieur Poof 
poqucr one rafour tor 2 octet*, it e»r inutile dw frit* 
? to** fa dmiron VaV 256 pviiqoe ''on pewf 'air© 
POffF AOT + f VA 756 PCWf A0# VA-756 ■ PffrX 

Pour /#s manipulation* decran, du bev dotllaot lo 
roviin* MOVF du VMflApW souhoffoW© 
doxcompogner par un oppei 6 SAUVE-MCVEC. /e pro 
pose J# p-'Offramm* WO V£ SCREW anoint qui par un 
Mil/ CAiL sow* ju roppellr un dcron en tfvJfanr d© 
perturber let precimux recteur* t'otilitotion otant 
evWeofe. /© n© jo/ni pa* d* prog/ommi* d© demo. 

Vevitf©/ ogniev, Aleisieuo met sorutariOns 
dJf rmguee* 



TM 



Ecrons TEXT o» HCR : vous avaz evidemmenl 
roison. et )q pluport des utiltsateurs d'Apple 
M+ connaissent (©I empioient) ctt voleuri, 
mais les manuels n'ont pai change — flux — et 
nous evitons dans un premier temps, de derou- 
fer les neophytes, 

Poquer une valeur : bien sOr f mo is cela rte 
change pas grand-chose, pai vroi ? 

Manipulation d'ecran : votre MOVE-SCREEN est 
interessant, malt pas outs! c/aire (aux yeux du 
debutant) que vous le pen sex. La voki : 



0300: A9 
0308 07 
0310 | 8D 
0316: 00 
0330 ! Off 
0328: CO 
0330 : F0 
0338 : 65 
0340 : 60 



3C 8D 24 03 
A9 3E 8D 24 
26 03 A9 04 
85 3E A9 50 
84 3C 81 3E 
FB DO F7 A5 
0E E6 3D 98 
3E 90 E3 E6 



A9 3E DO 
03 A9 3C 
85 3D A9 
85 3F 
91 3C 
3D C9 
18 65 3E 
3F DO DF 



AO 
C8 
07 



CALL 761 transfere lecran b l odresse J5000. 
CALL 777 lenkupere. 

Trace d'wi cadre : nous avion* donne deux ver- 



sions du programme*,, pour Older les nou* 
veaux amateurs de langoge mochjne a te com 
prendre, mais nous publtons volontiers votre 
arrangement (pas de musique. mais il y a les 
paroles f) 

0300 : A9 70 DO 07 A9 AO DO 03 

0308 : 20 0C FD 85 06 AO 00 84 

0310 : 24 84 25 84 26 AO 04 54 

0318: 29 AO 27 91 28 88 DO FB 

0320 : A5 06 20 FO F8 A5 06 AO 

0328 : 27 64 24 20 F2 FB A5 25 

0330 : C9 17 DO EC A5 06 A2 28 

0338 : 9D DO 07 CA 10 FA 60 

CALL 776 ovec un caroctere du clavier. CALL 
772 pour ©Hocer. CALL 761 pour codro en mod© 
inverse. 



• J© <uJidd6«m/Tfe. ©tt#m#p#rdj dons tai A*J-fdu 
CATALOG. Commmnt la^cir i'tf tavt 9mploy*i LOAD 
ca RUN cu BiOAD 7 Poufftvj vott* pobher ies ooVe«- 
les oVt Oubs Micro App/© t 

Mm O.C ifWANCOHVlUt) 



TM 



Rotsurei-vous, dans ce domain©, 6 un moment 
ou b un autre, nous sommes tous debutants ! 
LOAD charge un programme Bosk, mais n© I© 
lance pas. BiOAD charg© un© routine ©n lan- 
goge mochlne, mais n© Toctlv© pas. RUN 
charge ©t lane© un progromm© ©n Bosk. BlrAJN 
charge er active une routine en oisembleur, ce 
qu) n'©st pos touiours souhaftable (lire le r©xt© 
du programme Bask uttlisant la routine). 
Qjand vous faites CATALOG, A = Applesoft 
= BAStC (toad ou run) 
8 a Bmoire (d'ou BLOAD ou BRUN) 
T ■ Flchler (generalement lu 6 partir d'un pro- 
gramme Bask, mais pouvant portals etre un 
fkhier EXEC, que Ton lance alors par EXEC*. 
TOTO. par exemple). 

CLUBS : A eux de se man it ester, s'ils estjment 
que TREMPUN MICRO merite leur confiance, 
bien sOr i 



SUITC OU COUR*l*» (^AOI 
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TREMP L I N MICRO 



Vous avez ecrit 

a TREMPLIN MICRO 




TM 



# frnvo ' Jm tuis du gonro o utttttmr tte* programme 

tout hits, et 6 efre zonutrvateut A couse dm TRIM- 
PUN MtCPO. je me suit mi* d ProDOf et A / F o*i#m 
bfeur Convne \e nm connais pin / ossemhtour i* *u'* 
cto pret vofre Initiation. Mai* lexmmpie de souftrnc 
Hon dm hMNKW MOO n fl ?mi /oine perpto«. Je 
you* lain unm confreproposWon /nipiree nil 601/ 
puto bfen nV malt dont /e toiii* mtoux Jo iogiqum Cot 
evempto ne morzhm <jue si to nomfere mn est 
p'us £rrtr*d Aim fi* flombr» Jm vout soupfon/ie 

d* to 'aire expros pour voir $i loctmvn H".tv , 
Man (a ne rompr pos le charm* d* vofre revue 4 
■■iMW /ha £0*VlfT/7**M VAIfWIJ 



TM 



Rawurei-vous, 10 no »uift pas du genre «canoil- 
loun..< encore que... Noire programme DEMO 
(soustraction) se confentait d€ soustroire (sue* 
cossivmment) le contenu dw m*mo*re$ I et 9 
(deux valeurs Isolde*] du nombrm dm deux octet* 
place 6 I'envers comme it se doit dans les 
mdmolrrw 4*7. Votre petite routine, tout 6 fail 
clattique. wusiralt M (deux octets) de 4-7 
(deux octets). Cesl une vraie soustroctlon. Lo 
vo'tii ; pour que Ion en profile dons le& 



chaumiere* 








9300- 


38 




SEC 




301- 


A5 


06 


LDA 


•66 


0303- 


E5 


08 


SBC 


*0B 


0365- 


85 


06 


STA 


«06 


0367- 


A5 


07 


LDA 


S07 


0309- 


E5 


09 


SBC 


»09 


030B- 


85 


07 


STA 


*07 


030D- 


A9 


01 


LDA 


E*01 


030F- 


Be 


02 


8CS 


40313 


631 1 - 


A? 


00 


LDA 


£*00 


0313- 


85 


18 


STA 


* 18 


0315- 


60 




RTS 





* Voui dime torn doufe mo prendre poor un n6ophytm. 
trio** p? ne pet/jr mmrnp^chmr dm voui *oumeffr# un 
problJknm que Je n'amve pos A resoudre /*ar prmcou 
frfon f "of towrmgordo *ur une dijquefr* un Jong pre 
flromme de p/uswtrrj pcrtre*. soui des nomj rfi//*- 
'* Seu'emeni rnomrenonf f'e pe irouve pos de so'u 
friv) pour iuppnm&r Imt rwni de cei progrommet ef 
tos merfre fei MM a fo surfe dmt oufres pour n bfl 'or 
mer p/us Hr^W IWft Pourrtor vws m Vnd*qu^r A| 



devroit rdpondre 6 votre attente. Notoi que 
TOOL-KIT (APPLE) permel de mottre des pro- 
gramme* bout a bout (entre autres (ocilil6s fort 
intfresionlei, tellei que le numerotoge). 



• I* Comm#«* im pfngrommm mn tangagm 

machtnm ? 

Y-q t il un fofon *itimplm» datiithmr doni on pro- 
grrjmm* i*jh> graphiqum sauvegardee avec un 

fc#CfWi nom. AS/97. jam utilismr Imoge Writer 

Tool Kit t 

«ucre Mjxrtor; 



1° Noui avoni pubtrc un programme de LI5TAGE 
ET EDITION d'un progromme en longage 
machine (p*U). Il devroit r^pondre 6 votre 
attente* Si vouft desirez seulemenf Texaminef 
wr votre 6cron. topez CA1L051 et RETURN. 
Entulte. 6 ztii de Tait^risque, taper t r adrM%e 
hexad^cimale du debut do la routine. plu& lo let* 
tre I. (*300L r par exemple). Votre Apple vous 
d^tasQomblera auuiffit 30 instructions. Un autre 

L vout permettra de continuer, et oinsi de suite. 
t° Vous n'avex oucune raison d'utiliser Imoge 

Writer Toot Kit pour affkhmrunm page grophi- 
que. II fout seulement lo rappeler par 8LOAD 

NOW. ASttHN ou AUQQO [page 1 ou page 2). Si 
vous avez d'obord programme HGff. ou HGR2. 
elle opparoTtro sur voire *cran. Plusieurs pro- 
grammes de Trmmptin Micro vous ont dd)6 indi- 

que comment r^aHicher une page graphique 

[En ompie lo ligne 990 de VISUBIOCS). 



I Comment obtentr une wnpre**ion de 132 corocrerm* 
par ligne ovbc imprtmontm IMACC WffWf 9 Comment 
programmer to> tabulation* horizontolei 9. 



TM 
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La page 30 do priwt numiro (BOUTABOUT) 



1" PRINT CHR$ (4) 'PRCI" ■ PRINT CHR$ (37) "Q" : 
PRINT CHR$ (9) "133N*' 

2° Vote) un eiemple qui imprime 6 colonnes de 
nombrei aleatoirei (evidemment alignes a gau- 
che... I' Apple ne connaissant pat le PRINT 
USING, mail cola is programme au»i I) 

55 PRINT CHft$(27) "(010. 030. 050. 070. 090. 

1 10 ." : PRINT CHR$ (27) "u" : CHRS (9) : 
M FOR I = 1 TO 3 ; FOR J = 1 T06 
65 PRINT CHRS (27) V ; CHRS (9) : 
70 PRINT 9000 + INT (RND (1) * 10000) ; : NEXT : 

PRINT '~:NEXT 

Autre proc*d6. avetPOK&36. X 

50PRINTCHRS(9)"132N'*:FORI = 1T05 

bO FOR J = 1 TO 6 : POKE 36.J 1 20 : PRINT 9000 

+ INT (RND (1) ' 10000) ; : NEXT : PRINT " ; 

NEXT 



GUY-HACHETT! 



Si 



• VQtci unt solution pour tmpnmer les HISTOGRAM- 
ME5 (TREAWtIN MICRO n*l ) sur IMAGE WRITER 

riil Exfmlf lo routine PICDMP jf IMAGEWRITER TK 

"p ■ Charge IMAGEWHITER TK 

• Taper 6 — » tortir du programme 

• Taper BSAVE PICDMP ASWOO. LS5B0 

• Intorporer PICDMP au basic de Histogramme 
{list* suivonte)* 

60 PRINT : PRINT D$ "BLOAD HlSTO. LM 

65 PRINT : PRINT WBLOAD PICDMP" 

70 PRINT : PRINT CHR$ (13) + CHR$ (4) "BLOAD 

FA1RE.FI.AS6I00" : RETURN 
80 POKE 24659.234 : POKE 24660,234 : CALL 

24576 
90 RETURN 

EDITION GRAPH 

40 HOME 

42 INVERSE : PRINT "EDITION GRAPH IGUE HF : 
NORMAL : PRINT : PRINT : PRINT 

43 PRINT *1 — SIMPLE DIMENSION. INVERSE" ; 
PRINT : PRINT "2 - SIMPiE DIMENSION. 
NORMAL" : PRINT : PRINT "3 — DOUBLE 
DIMENSION. INVERSE" : PRINT : PRINT "4 — 
DOUBLE DIMENSION, NORMAL" : PRINT ; 
PRINT 

44 PRINT "VOIRE CHOIX :"::GETCHS 

45 CH = VAL(CH$) : IFCH 1 OR CH 4 THEN 
GOTO 1240 

47 CH = CH — 1 

50 PRINT CHR$ <13) ; CHR$ (4) | "PR£1" I PRINT 
CHR$ (27) "N~ : POKE 49939,0 : POKE 49734.0 
; POKE 49232.0 I POKE 49236.0 : POKE 6 J : 
POKE 7, CH : CAL 36864 : PRINT : PRINT CHR$ 
(4) ; "PR£0" 

60 GOTO 870 

* Je sun emballe par In devM premiers num&o* et 
dtsquetles de TREMPUN MICRO qui m'ont toit decoo 
vnr. progrommes et commentates 6 loppvi* ie nom 
breutei et tnsliuctrve* totiht4s de program m of too que 
fai oussitif efttayees sur mon Apple tk. J'ol eu quel 
que* dittkolt+s 6 exploiter lulititoire FAIREECRAN 
ITM o'iJ pout lequel fe n'af pas encore *4us*i 6 com- 
prendre i usage de lo command* CTRt-W. Je souha*te 
rois. d ce propo» f que le mode d'emphi de vos vtlfotah 
res soil ph% explicate, ie programme ELECTRICI1E (TM 
n c l) comporie one erreut | en saute les om4e$ #*o- 
luent de 7 Pour un foncttonnement normal, il syffft de 
corriger to ligne 270 en svpprimant ND-ND-f I. J'ol 
autii frouv* trts instruct*! le programme MlhtU asso- 
rt* ou ST AM t UP de to dhquette PraDOS MA2 Je me 
Wis empresse de I'odapter 6 mes dinquettes ProOOS^ 
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t initiation au longoge machine est b*en taite conti- 
nue/. a*oc un peu plus duplications. peut-%tre> Vous 
mentianne* 6e* logi£*els utlUtaires i#* TOOLKlV 
Pouvervou& en publier une lisle ovec references et 
fovrntsseors f 

Guv CAUO (§7500 CWWU-ll^ VAUHClt 

^7] F AIRE ECRAN La command* CRTLW vous per* 

— met de transformer voire ecran TEXT en Acran 
GRAPH IOUE (avec utilisation de la fonle de 
caratleres). 

LOGICIELS UTILIT AIRES.— Ceux d'Appte sont 
souven: les moins onereux et presenfent on 
avantoge non negl*geabte | la compatibility. 

• Quelque* relies tons en vrot 

— J'ai po nolor qvbc piaistr que In information* tor 
les programmes tvtiltsatian el odapiaMM) aogmen- 
tatentdom ten*?. Merti et I'eipir* que /i? movvemeni 
yO cantwiter car /e ne compreodt que X a 4Q\ de re 
qui m posse dans les programmes qui ifffMflrtf to Ion 
goge mochlne ; cerfatnement 1aute de temps atnsl que 
la potonfrf li'i tout svphinsr tout de suite *u lo 
ticheste de to rew* 

Povrpuoi ne pas proposer un obonnemenl revui^ 
disqueOe 

— Poo vionnent ce* «<bJpt -> au livoge de c+rtatm 
programmes 

f * ,7^:0JF IHtnitMiW 

^iTri Proposer un abonnement ou* disqueltes revien* 
droit 6 impoier t'ochol de TOUTBS les disquelfo* 
(y comprls celiet qui ne In Interessenl pa*} 6 
not Iwteurs... et nout n'en lommes pas porti* 
sans. — BIP i Pour inserer un 8IP dons gne 
ligne de programme. Il suHil de taper un CTRL*G 
(touches CTRL el G presseeft simultonement). 
Exemple : 

10 PRINT "TOTO CTRL-G" vous permeHra 
d'enfendre un BIP quand TOTO sera oHiche-.. 
mots oussl en cours de tillage. 
Ce procede pout oussi etre utilise dam les 
REMarques. pour attlref rattention et (oc)llter un 
mellleur rep6roge, loujours Ion d'un listoge sur 
flcron (sur imprimante, Il n'y o oucune trace}. 

* Quelle M lut pos mo iurprisc el ma /oto, loi+que t* 
decouvrrs. dons un rafon de /oumovK. une revue Mr to 
programmaUon et qui de plus. 4tait pout mo» Apple lie 
Cello reme. c 4tatt THMPUN MICRO. Je l ochefai el me 
priapitai au ckvier de men Apple (Je precise que re pos- 
i&de mon Apple tie Jupun deux ens ovec un mpntteor 
*ert e* un drive de disquettes 5 v4 pooce* Je programme 
en bask et, dfpuis peu r le m'Mtle au longoge macfotte 
otosj quo lossembleur t'eet po* iacife H* . Je capioi le 
premier programme {pour commencer voire specto' 
bonjourl et tancat son eu4cullon. Premi&r* surprise | 
torsqve t'ertcutois I option deu*. /RUN) pour un pro- 
gramme de mon catalogue*.* t*utt+ *h*o* t*tt 



TMMPUN MICRO 



Vous avez ecrit 

a TREMPLIN MICRO 




* (sufto k to page S9f 



la hgne nCatntoguo utith 



taire Guy Hachette^ restart ecrfto. Ce probltme fa* 
rogld on carrtgeont to hgne 15 du programme (mter- 
verffr P*M7 am id) SS CS (F) avec NEXT). Avec le 
MENU de HrEMPUN MKRO nV. il est impo&tible de $e 
server du programme ftguront dons le catalogue d la 
lettre 'O" com™ programme dm d&norrage ; ev> 
etler. opr*s owWr chert r *0 on about** mlo*ittbl*menr 
owr opthn* ) 

D'avt™ part, dam to programme de to pop* & 
( Temren f»e vcru/ pes l#odre»"J to fipn* do prese/fto 
'ton qui apparaU dam h tor»*fr*. n arrate pas de (W) 
tor. CommpflM'w sorrfr P 



TM 



MENU*— 1 1> programme figuront 6 lo lettre "O" 
•if porta! t omen t accessible, mols vous commot 
t« une or reur do manipulation. 
Quand to catalogue est afiiche il no faul pas 
immodiotement taper la let? re-do (encore que 
cela soit sons importance... iusqu'6 N; malt 
pressor sur la barre d'espocemenf. Ensulte, choi- 
ilr (option 2 (Run, etc.), puts la lemo clo.. tt 
no tarn men t 0. Dans tout autre cos, O oif priori* 
talre et renvoie offectlvement ou* options. SI 
cela vous gene vraiment (vous fttes le seul), 
chongoj-la poor P ( en mod if ion t le programme, 
tout slmplement 

L'ENVERS NE VAUT PAS L'ENDROIT. Puisquo 
voui avez tap* vous-m*mo to progromme, to 
figne 300 ouroit dO vous renseigner. PEEK 
{49249) pormot do savoir si lo touche Pomme 
ouverle a *t* pressee. 

MORALlTf . Notre programme n'etait pas sutfi- 
sammenf document*. 



»Com/n*mrni/>torm*»f $ur ProDOS t 



TM 



Nous consacrerons plusieurs pages 6 ProDOS 
dans choque numero de T.M. Les Editions du 
P.SJ, ont d 'autre port, public un livre qui est 
certes incomplete mois permet aux utlllsatourt 
de mleux comprendre les commandos de ce nou- 
veau systome Sexploitation, litre : ProDOS sur 
Apple /to of tic par Francis Verscheure* 

TM. vous signolera, ou fur et 6 mesure de tour 
porutlon, tous les bom ouvroges sur ProDOS. 



* Je si//* taciaur tfH+bdegicI+i *t j'at rtore quo dans to 
m/moVo $7. du W mai. to programme 000% (dm DAN 
DCRY) utlHsv (listing 4) fas m^mes dormrttf-i d un octet 
pfd> quv MMf.ff. de Trvmptta AMtro n*l tehttmgS 
InfAme programme) esi qvant A lui identtaoe 6 to pro 



mlere porfie de FoireAM (m4me numtra de Tromp/to 
Mkref Je vous fains to pogo. Commenr expliquei 

9 Mi taooo 

Nous n^avons rien 6 expllquer Tremplin Mteroa 
paru le 3 mars et Hebdogieiel to 10 mot. D autre 
pan. la (onto FAtRE.Fl utilise des caracteres 
trongats accentuos (fi.* ( 6) que I'm no trouve poi 
dans las dlsquettes commercial iso-es. Concluez 
vous*meme ! La Redaction de notre confrere 
(dont je suis person neltomont un fidole lecteur) 
a 4te irompco, mais comme celo nous orrjvera 
aussi ! Quant 6 lo premiere partto du pro- 
gramme, elle est americaine (BEAGLE 8ROSI)... 
ce que nous ovons rJ*S|6 signal** 

Nestor. 

Opinion de Guy*Hachetfe : 6 partir du moment 
ou (e publio un programme personnel dans 
Tremplin Micro, j'ostimo qu'll no m'apporfient 
plus... puisquo je le mets rj la disposition des 
Lectrices et Lecleurs de lo revue r lesquels peu* 
vent to si^ier et le modifier si lei est leur bon 
plaisif . Enfln. quand un auteur fait un emprunt 
(important; A un autre, il est plus correct de citer 
to source. Cost cela. la vroie conffoternit*, mois 
person nollement, cit*ou non ( jesuls flatt* (oh ! 
to viloin d*fout I) d J *tre cop-^ avec ou sons 

citation 6 I'appu). Si ce n'est pes du nombrilisme. 
alors qu'est-ce que c*est .? Quant 6 s'approprfer 
— et sous sa signature — le travail des autre*, 
|e laisse le Lecteur soul |uge I 

Guy-Hochette. 



* Je vous ai c/wc*# (et meVne redom*} 6 APPLC 
EXPO, mais Tremplin Micro y rf/o/r trnmble-t il, inton* 
nu (tout de plusreors exposa^ra. qui m oot toniitm* 
que vous nfartel pos de itond). E fur/ ce dUtMr* ? 

♦ /MM WHf Vtitf) 

frj^l Nous aimons bien Apple. La preuve : nous oxts* 
L-t-J tans, mats Appto Frortce vlslblement ignoro 
notre existence, ce qui ne nous empSchera pas 
de continuer — et objectivement — A travoillef 
pour aider les utilisateurs d'ordinateurs person- 
nels de cette marque. Il y taut d'oilieurs un cer- 
tain courage puttque to Commission Paritaire 
des Publications et Agences de Presse refuse 
son agr*ment 6 une revue qui. comme lo notre, 
ne s'int*ress« qu a une sorte de marerieL . tout 
en n'oyant avec son construdeur oucun lien (la 
preuve : Apple Expo). 



SAISIE IM ASSISTEE (page 50) 
En ProDOS remplocor (os lignos 940 6 960 per : 

UQ GOSua liff ; V7AB 31 : PIWT "KAVT' TB "AS "A0| *, 

L"l 

95a PfltHT VTAi 71 : PKIWT OS "&5AVE" Tl$ - .A$ 4t AOS *\L" L 
960 



GUV-HACH1TTI 



INDEX des articles deja parus 



Additions blMim (p. 19)... 



AHichogo act* I At 4 en langogo m«hint {p. A3) 

Amorti*»rnon1 (p. 38) ««« — — »i»hm W 

Avtc ProCOOE lp 53) « » t» »n ' j '> HHi |t 

fouttof sirr-plps on langogo moctiino [p. 50) 
Chorofcw 6 docryptir [p. 10). — 

Hm do** *o i^v"Wi A plfv dam I* Huflilri 1 

Copio d'ocran avvc cart* 40 1 olonnoi (p 4Q] „ 

Crooi vol Worn on voul onvyianl (p. 1 7) 

P«imiJih) *» pty - ^ w «- ■ tmmr t*n> **» ha dlMjf*l*a L *i 

Dobontlivrn. cfnlici./j ^ :;■ 61) 

Do nogvoJIot p«rsp#cliv*« pour vm hologram 

mot (p. 30) immm *h i Hh y i m i 

Dot ocWt *n dopJocomont (p. 76).. 

Dou« true* pour votro Applo (p. AO) nnnmu — 

Dttquarto* a vorro nom (p. 6) 

Dttttquor un ncnhre (p. 30) * 

DouW»tlitog«on80cotorwi« (p. 11) 



EcrltOfm poo* 2 |HG«) (p. 25) 

EHotomont docron pot lo goudvo (p. 63) ™ 

Evidommont qu o I to vout knhfrrotto ; n m*moiro do 

votro Applo ! (p. li Btm ii mnHn nnnj m -*»■!»"• 

Fkhiort pfogrommot (Ficho 1) (p. 34). t . 



^ 







Flthtoft EXEC (Flcho 1) (p. M) - 

Gnbouill* (p. 3) +. »«»■■■-< 

Hoiodfomol OU dtkl 'nul . ■ T VtCO VOOO (p 44),„™„ 

H1AB on Wrolonn** (p. 4ft) — ~ 

Irrp* tmanrist «t grapHnmo {p. 56)..».„ ... 

Impfirnoi dot fittogot format tt do vot program- 
rnot ' p -ttiiiiiiittn*(***tff»fH»i*iii»*»"*H 

ftf»*f r»« a<*a<na*i *«■ maJla^t p#so#o*f*"#* 

t n:- do HGM ou HGM |p. 37). 

Jou (orrour) (p. 45) ( 

L'onvo** no voul pai fonoVoh (p. S) 

Loton4tro(Fichol) (p. 33) 

Lo pogo r*io do I ApcJo Ho (Ficho 1) (p. 33). * 

Uairf-tur (Ficho 1) (p 331 * 

Lot cor actOTw "*ovrH» do J'Appfo Ik (p. 34). 
Lot fkhiort atooroirot (p. 15) 

!f**v4i'«m**ai tim nulla trun«tfftnl 

Let nambfn* doomau* ot votro m»cro {p 16). ****** ****** 

Lilt ovoc l + ompof lOHQ 4fl). . + t« «« 

LUiago of odition on tangogo mochlno (p. 14) 

LnJoojfj-confrWo tfwn (ichitr Nft (p. 44) 

Logk-grlMoft (p. 57)..,,« i^ m i m * 



*********** 



Mq choro vfoillo pommo (p + 41). 

Onorr Goto |p. 31) 

Potr cu impair avoc qootquos octtti (p. 35) H 

Piui lorn ovoc Totiomblour (p. 39) « 

PohM utitot (p, 5) 

Poo* oublior lo rOu du porkdu (p. 37) 

Una aWutw m*u r**ff**— l<Pf* I 

Prinl uting (p. 46) 



N°2 

N # 1 
H» 1 
N° 1 

N*2 

N° 1 



H« 1 

N* 1 

N°2 
N* 1 

N-2 



N c 1 
N" 1 
H* 1 
N°2 

H° 1 
N tt 1 
N" 2 

N' 2 

N*l 
N* 1 
N» 1 

N ft 1 
N" \ 
N" T 
N tt 2 
N'7 

N- 1 
N* 1 
N* 1 

N* 3 

M»l 

H° 1 
N fl 2 
N'2 

N e 7 
N* t 
N*2 

N* 1 



Progrommo #n EXEC (Rcbo 1) (p. 3«). — nn> 

Program/nor ? Bltn lOr quo co4o on voul to poino I 

Quo vo-Ml ># potior ? (p r 54) iiti w * 

5aitio Ovoc Vrt immodiot (p. 49) — _ 

Sou*troci*oTi on longogo mochino (p. 43) 

la turn 4* * « r**t**|iW 

Spociol lonfour |p. 3) » ^^mi mt<m.« 

Trocorun cadro on longogo mochlno (p. 64). 
Tronsforl O v un 4aon do B0 tolormot on momoiro mxi- 
ILoIro (Rdvo 2) to 41) ^ ~~ « 

Una **J>»ganWh>a 

Un occottoiro ullfo i lo mogn*fOphono (p. 31). 

Un cortoln jour do io tomcino (p. 17) „ 

Qb*i l*** turn wb i* w*ja) * 

Un dVrvo pour 1 500 F f Banco 1 (p. 461 y.m» 

Un moyon do lovoir ti vrt fiehlor oxiifo (p. 36) 

Uno polito nivUion dangtoh (p. 7$).-^ ™ 

Valour ASCII opris GET |p f 4fl) 

Voochiffmvolont btonun fromago I to 49) 

U iitfla **fh>*a ■** n*i*>>rtrrp-« r a— tw^i * y aa»lWt»« 



Vo* monut 6 ■ - cor»o (p- 5) - ««« 

fn kin -t lo-lraf- nocitna *ou# Ufi cMLnoB* l] Hi ri + sir 

Voui 4lot ou cQuront. moit colo vout coufo combion ? 

(p. 4o) in ii niitni i iiwiijMBii »yni<ii**iM r uUM'*"* 



Vow* ovoi omprwnnt ? (p. 37) 

Voutditotoddrtion ? (p,51) 



N* 1 

M« 1 
H* 1 

N ft 2 

N* t 

N* 1 

N* 7 

N" 3 
N* 1 

7 

N» 1 
N*l 

N a 1 

M* 7 

N°7 



N B 1 

N° 1 
N B 1 



PROMO SPECIALE 
POUR ProCODE 



Nous avons doj6 *krit (TREMPUN MICRO n l ) 
tout le bleri quo nous pensons de ProCODE, 
logklel en franr;als, permettant une pro* 
grammatton (ocil« en Assembleur (sons sou- 
Mi mals avec un menu extra I). 

Deux bonnei nouvolloi i 

• Nous voirt proposont une disquelte 
DEMO de ProCODE (qui lonctionne... 
mimorisotion exceptfn9), 

• Pendant les mois de (ulllet et d'ooOt, Pro- 
CODE est vendu 840 F HT, mais avec, 
par-dewus le marchfi, le tris bon bou- 
quin de Nicole BREAUD-PQUUQUEN et 
Daniel-Jeon DAVID (Editions du P.SJ.J. 
Cest pos beau t tout cela? 
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MICROSONDAGES 



Merct do blen voutoir repondre 6 ces questions : 



1. Poss6dez-vous le numero 1 de Tremplin Micro ? 

2. Possddez-vous le numero 2 de Tremplin Micro ? 

3. Avez-vous deja command* une disquette ? 



Norn 
Adresse complete 
Code postal [ 



Bulletin de commande et d'abonnement 

PrAnom 



JJ Ville 



N OVBi tSl PAS Of COCHt* LA VtWSlON OF LA Ptf QUOTE (DOS on ft oOOS ) 



1 


Abonnement a 5 num^ros (un an) : FRANCE 


150 F 


1 


DISQUETTE de TREMPLIN MICRO N° 1 

(Pour APPU //• •! He) DOS 3.3 □ ProDOS □ 


105 F 


1 


DISQUETTE de TREMPLIN MICRO N°2 

(Pour APPU Urn .t He) DOS 3.3 1 ProDOS □ 


105 F 


1 


DISQUETTE de TREMPLIN MICRO N°3 + un« dnqu.no 

(Pour APPLE Ho ot He) DOS 3 J U ProDOS U viorgo grotult* 


105 F 


1 


NUMERO 1 DE TREMPLIN MICRO 


30 F 


1 


NUMERO 2 DE TREMPLIN MICRO 


30 F 


1 


NUMERO 3 DE TREMPLIN MICRO 


30 F 


1 


DISQUETTE DEMO MAX THE GLOBE TROTTER 


25 F 


1 


DISQUETTE DEMO DE ProCODE 


25 F 



Participation aux frais d'envoi (gratuit pour les abonnes) + 10 F 
Numoro d'abonne ou de client : Total a payer F 

Mmrci dm llbmllmr voire reglemmnt 6 I'ordrm dm TREMPLIN MICRO / Editions JIBENA 
Modm dm rmglmmmnt choltl : O Cheque D Mandat-lettra O Carte Bleue 



N° do votta Cart* M< 
VISA Dot* d ehplrntlon |_ 
Montanf 6 cUbli - 1 - 



Slgnotur* »fcl H r* 



lelin a relourner □ : TREMPLIN MICRO - Senille 86100 CHATELLERAULT 







out 






NON 








OUI 






NON 








OUI 






NON 





GUY-HACHCTT1 




TIEMPUN MlCtO — BimettrloJ — Co*f uno publication dot Edition* JIBENA 4, mo do a Cour-dM-Nowor 75020 PARIS — 5 A ov 
copuo :t 3600000 f lm<yiT*4 pot Ol(*P*6S5 ."PAWS Oepot legal 6 to doto do partition - Irocriptton a lo CommJuton Por> 
toko dti Pubti<otk»n* «t Agonc«t do P*»i*# on coan — CKrettour do lo PublkotWn Guydomont COONf — DiHutoo 



